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

@WWW שנה שעברה ביררתי בכמה חסידויות גדולות כמה העלות שלהם לחודש תשרי,
התשובה הדהימה אותי, שההכנסה מהמקומות בכל הבתי כנסת ששאלתי לא מגיעים לסך ההוצאות,
ועדיין צריכים להסתמך על הפרנסים והעליות וכו', ורק אז נשאר להם טיפה עודף לסחוב עד חנוכה - המגבית הבא בתור...

ובבית כנסת חסידי כמעט כל הוצאות חודש תשרי הם עבור כלל האנ"שים מכל הארץ.

תודה
אם הוא אמריקאי חייבים להתקפל...

תוכל לעשות שכל מקום יתפוס 2 או 3 תאים לגובה.
ולרשום מספרי מקום בתא העליון, ובתא שתחתיו לשים vlookup לפי המספר.

ניסיתי, אותו דבר
בדיבאג כתוב פורמט ישראלי שמחזיר שאילתה ריקה,
העתקתי לשאילתה בתצוגת SQL, נהפך..

@dovid אמר בהרצת SQL מVBA באקסס מחליף day ב Month:

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

יש 2 תיבות טקסט, באחד כתוב 31 ובאחד 03.
את 31 הוא משאיר, ואת 03 הוא מחליף לאמריקאי.
בדיבאג הוא כתוב בפורמט ישראלי, אבל הוא מריץ שאילתה ריקה, לכן העתקתי וכו'.

אני מקים קוד SQL מVBA על שדה תאריך.
משום מה הוא לא נותן לי רשומות..
העתקתי את הקוד מdebug והדבקתי בתצוגת עיצוב של שאילתה הוא מחזיר לי את הסינון ככה
Between #31/07/2018# And #08/03/2018#
על אף שהתאריך בתיבת טקסט הוא 03/08
מה הפתרון חוץ מ format?

מה נקרא 'נתקע'?
רק שמאלה, למטה כן נגלל?

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

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

אך הקובץ הזה פשוט עננננק, ז"א יש בו מליון (באמת!) תאים לחלוקה לטורים.

אקסל יש לו רק 16384 עמודות.
תחלק לפי שורות מתאים למספר העמודות...

או שתחזור לפתרון של @כוכב-שמח
ו @dovid יש עוד סיבה למה עדיף העתק הדבק לוורד..

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

איך מוחקים את הטור הבסיסי? (ז"א ממקום החלוקה ואילך?)

לוחצים על האות האנגלית שמעל העמודה > לחיצה ימנית > מחק.

@dovid
א. לא חשבתי על זה אף פעם,
ב. מה רע בפונקציה שעושה את זה בשניה?

@h-c אמר בחלוקת טור ארוך באקסל למספר עמודות.:

הוא מחלק לי את הטור בצורה רוחבית.
ז"א, תא 2 נהפך לעמודה B, תא 3 לעמודה C,
ומה שאני רוצה זה שהתאים יסודרו בצורה שונה: ז"א תא 2 ישאר ב2, ותא 3 ישאר ב3, ורק נגיד תא 20 יעבור לעמוד B, וכן הלאה, תא 40 לעמודה C וכו'.
כביכול חלוקה שכל 20 תאים עוברים לטור הבא.

הורדת מהאתר? יש שם שני סוגים אחד לעמודות ואחד לשורות.

תוריד את הקובץ שאני העליתי בהודעה השניה,
תעתיק לתוכו את העמודה שלך. וכו' ע"פ ההוראות

@כוכב-שמח
כאן מצורף קובץ אקסל עם הפונקציה.
הקובץ הוא מסוג xlsm בעת הפתיחה יוצג פס צהוב מעל הגליון, יש לאשר מהימנות בקובץ [לא לפחד לא הכנסתי שם וירוס]
אחרי פתיחת הקובץ, יש להיכנס לכרטיסיה 'תצוגה' בסוף יש לחצן 'פקודות מאקרו'
לחיצה על זה יפתח תפריט קטן יש לבחור ב 'הצג פקודות מאקרו'
ייפתח חלון ובו יש רשימה ללחוץ פעמיים על 'חלוקה'

יקפצו שלש חלונות,
בראשון יש לבחור את הטווח לחלוקה,
בשני יש לכתוב לו מספר השורות שיכניס בכל עמודה [עמוד A4 הוא בין 30 ל40 תלוי בשוליים ובגודל]
בשלישי יש לתת לו תא מהיכן להתחיל את הפיצול.
וזהו, הקובץ מוכן להדפסה.

0_1531318175604_חלוקת עמודה רציפה לעמודות באקסל.xlsm

@H-C הנה פונקציה שעושה את זה באופן נפלא.

Sub SplitColumn()
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("טווח לחלוקה:", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("שורות בעמודה:", xTitleId)
Set OutRng = Application.InputBox("בחר תא לעמודה ראשונה:", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
    xValue = InputRng.Cells(i + 1)
    iRow = i Mod xRow
    iCol = VBA.Int(i / xRow)
    xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub

מקור והוראות כאן. (באנגלית)

תודה על השאלה, הרבה פעמים אני צריך כזה דבר, ועובר הלאה, עכשיו יש לי קיצור דרך.

@dovid
זה גם לא מנעול בתוך מנעול?
כי יש המון בלוגים על זה.

אולי כזה?...

@dovid ההגיון שלך צודק לברירת מחדל, וזה לא טעות.

הוא שינה פורט ברמת מחשב לצורך אבטחה.

@dovid למה שאיפוס יעזור?, עדיין לא פתח את הפורט הרצוי.

אם הוא שינה בregedit את הפורט של המחשב ל9797 בא נגיד.
איפוס אמור לעזור?

אני רק שואל.

@בול לא הבנת.
שאלתי,

1. אם מרשת אחרת, יש אפשרות להתחבר למחשב המרוחק.
2. מהמחשב שלך לחיבור RDP אחר.

ז. א. אם זה נחסם אצלך או במחשב המרוחק.

@בול בדקת אם ממחשב/רשת אחר/ת אתה יכול להתחבר למחשב המרוחק?
מאותה מחשב/רשת למחשבים אחרים?

כיום אני מחייג מטלפון IP דרך אקסס עם הקוד הזה

איך מחייגים מ C#?

Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
                                  ByVal lpOperation As String, ByVal lpFile As String, _
                                  ByVal lpParameters As String, ByVal lpDirectory As String, _
                                  ByVal nShowCmd As Long) As Long
                                  
Function CallToNumber()

Dim urladdress As String
Dim strString As String

urladdress = "http://www.tchumim.com/" & number

Dim xmlDoc As MSXML2.DOMDocument60
Set xmlDoc = New MSXML2.DOMDocument60

xmlDoc.Async = True
xmlDoc.Load (urladdress)

End Function