תחומים - פורום חרדי מקצועי

@מוטי-מן
כנס לתגובות > בחר יעד לתגובות

ונשאר לך רק לבחור

@מוטי-מן אמר בטופס להזנה מהירה לאקסל, אפשרי?:

יש לי קובץ אקסל עם כמה מאות שמות פריטים, לצד כל שם פריט שנמצא בעמודה a כל נמצאים בשורה נתונים מספריים של כמויות, האם אפשרי ליצור חלונית שבה אני יזין את שם הפריט במדוייק, וכמות, ואקסל יוסיף את זה אוטמטית בתא הריק הראשון שהוא ימצא משמאל לשם הפריט? כך שבכל פעם יתווסף תא נתונים נוסף?

אפשרי, אם תרצה תעלה קובץ דוגמא של האקסל שלך ואני יכול לעשות לך את זה (בזמן הפנוי ..)

@מוטי-מן אמר בטופס להזנה מהירה לאקסל, אפשרי?:

אם זה אפשרי בשיטס זה ג"כ טוב.

זה גם אפשרי יש לך כאן מדריך איך לבנות גוגל פורומס ואת זה אתה יכול לחבר לגוגל שיטס.
בהצלחה!

@מלא אמר בשגיאה באקסס 2465 | שגיאה מוגדרת יישום או מוגדרת אובייקט:

@אוריי אמר בשגיאה באקסס 2465 | שגיאה מוגדרת יישום או מוגדרת אובייקט:

למה כוונתך פוקוס??

שהסמן עומד עליו.
אי אפשר להסתיר כשהוא בפוקוס
https://docs.microsoft.com/en-us/office/vba/api/access.textbox.setfocus

לא זה לא היה קשור לזה הסמן לא היה עליו ועם כל זה הוא לא הצליח להסתיר אותו
וכמו שכתבתי לעיל שהאקסס לא מוצא את שם הפקד

@OdedDvir @Shmuel754 @מלא
הרבה תודה על העזרה...

@odeddvir
כפי איך שהבנתי משם

שים לב שאפילו בפונקציות טריוויאליות, כמו Nz() או IsNull() עדיף לרשום בSQL טהור ולא לבצע קריאה ל-VBA

אני מבין שיש הבדל בין ה SQL ל VBA בקריאת הקוד
אבל כאשר גם ה IF וגם הNZ נמצאים ב SQL טהור ואין קריאה ל VBA האם גם אז יש הבדל?

@הבוס-הגדול
יש לך כאן אקסל שמישהו בנה

@אופקים
תנסה אולי ליבא את הקובץ דרך קוד vba
עם הקוד הזה
כמובן תפתח באקסל החדש גיליון בשם data

Sub ImportCSVFile()
'Updateby Extendoffice
    Dim xFileName As Variant
    Dim Rg As Range
    Dim xAddress As String
'    xFileName = Application.GetOpenFilename("CSV File (*.csv), *.csv", , "Kutools for Excel", , False)
'    If xFileName = False Then Exit Sub
xFileName = "C:\Users\Desktop\products1.csv"
    On Error Resume Next
'    Set Rg = Application.InputBox("please select a cell to output the data", "Kutools for Excel", Application.ActiveCell.Address, , , , , 8)
'    On Error GoTo 0
'    If Rg Is Nothing Then Exit Sub
'    xAddress = Rg.Address

    Sheets("data").Select
    Selection.ClearContents
    xAddress = "A1"
    With ActiveSheet.QueryTables.Add("TEXT;" & xFileName, Range(xAddress))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1255
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End Sub

את העברית זה מסדר בוודאי השאלה היא האם הוא יצליח בגלל גודל הקובץ

@שוהם307
תכניס את הקוד הזה

    Range(Selection.Address) = Range(Selection.Address) - 1

עובד על כל הגיליון
בהצלחה...

האם יש אפשרות להציג אובייקט popup בלי להציג כפתור אישור

ולהריץ קוד vba תוך כדי שהאובייקט פתוח

i = CreateObject("wscript.shell").popup("This is a MsgBox who will be automatically Closed!",1,"Note")

תודה מראש

@ZACK אמר בעזרה באקסל - ספירת ערכים רצופים בשורה:

יש לך נוסחה איך לאחד את התאים הללו לתא אחד? אני יצטרך להחיל את הנוסחה הזאת על כל השורות. בינתיים לא הצלחתי עם הנוסחה של אמפרסנד &

=A1&B1&C1&D1&E1&F1&G1

@dovid דבר זה קורה לפעמים ולא רק בפורום אצלך אלא נתקלתי בזה בעוד פורומים אבל אחרי כמה זמן זה מסתדר

@morvro9 אני עשיתי את זה בשתי קבצי גוגל שיטס מקושרים עם כל הנתונים מקווה שזה מה שאתה רוצה בכל אופן תוכל לפנות אלי במייל שבחתימה

@OdedDvir
מדהים

רק עוד שאלה קטנה
אני רוצה ליצר סוג של חלון שבו אני מזין את מס' הגיליון ואני ילחץ אישור והוא ידפיס לי את הגיליון
איך אני עושה את זה בצורה הכי קלה?

אני רוצה שאם יהיה מסומן בתיבת סימון (true) שיחזיר לי את כל הרשומות ואם לא שיחזיר לי את הפונקציה GetUserName() ע''כ עשיתי נוסחת iif כזו

IIf([Forms]![BookListUser2]![AllUsers]=true,"",GetUserName())

ומשום מה כאשר מסומן הוא לא מתייחס ל "" שעשיתי ולא מחזיר רשומות כאילו כתבתי לו null ניסיתי לכתוב את הפרמטר הזה Is Not Null וגם לא עזר
מה טעיתי...

@איש-ימיני
אם כך אולי תעלה לכאן דוגמה

@ראש-פינה
תוכל לעשות גם נוסחה פשוטה כזו

=SUMIF($C$2:$C$5,F2,$B$2:$B$5)

ראה קובץ מצורף
דוגמא SUMIF.xlsx

@OdedDvir
ראוי לציין שאופציה הזו היא מאד שימושית כאשר אני בונה תוכנה באקסס ויש לי מלא קבצים נלווים אני שם אותם בתוך תיקיה היכן שהקובץ דטא מוסיף לקוד הזה את ההפניה היחסית מהדטא וכך כל פעם שמעדכנים את התוכנה הכל מתעדכן

@dovid אמר בדחוף!!! לא זוכר את הסיסמה של הקובץ אקסל!!:

והמידע באמת מרשים, 10 אלף spincount...

אם אני יודע לקרוא טוב זה 100 אלף

<p:encryptedKey spinCount="100000" saltSize="16" blockSize="16" keyBits="256" hashSize="64" cipherAlgorithm="AES" 

@OdedDvir

תודה רבה אין מילים להודות על כל העזרה שלך כאן בפורום

@OdedDvir
תודה עובד מצויין

@אוריי אמר בחזרה לטופס הקודם באקסס:

@yits
לא עוזר הוא חוזר לאחד הטפסים לא יודע לומר למה הוא החליט דווקא טופס מסויים
ולא לטופס שממנו נכנסתי לטופס הספציפי.

מצאתי את הבעיה
פשוט לאחר החזרה הייתי צריך לסגור את הטופס הספציפי כדי שיטען מחדש וישמור מהיכן הוא הגיע.
@yits הרבה תודות........