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

נכנסתי לאתר של חברה גדולה מאוד
ניסיתי למחוק את את כל המופעים של hidden
לפתע אני מגלה עוד כמה דברים

המידע היה שם נגיש בצורה הכי ברורה!!

מחכה לעזרתכם מה לעשות
בתודה מראש

@מלא
אני מצרף דוגמא מאוד בסיסית שעשיתי
כמובן שזה לא עומד בכלל בתנאי הכתיבה הנכונים של קוד
אבל אם יהיה למישהו תועלת, והיה זה שכרי

Function Update1()

Dim objHTTP As Object
Dim Json As String: Json = ""
Dim Body As New Dictionary
Dim Bodyitem As New Dictionary
Dim Bodypayment As New Dictionary
   
Body.Add "api_key", "f1c85d16197de6d4dc0da51bf"

Body.Add "api_email", "demo@ezcount.co.il"
Body.Add "Description", "HOK BBNK 12 -655-5555444 "
Body.Add "developer_email", "DEVELOPER@example.com"

Body.Add "customer_crn", "308358899"
Body.Add "customer_address", "השומר 34 בי ברק"
Body.Add "customer_phone", "050123456789"
Body.Add "type", "400"
Body.Add "customer_name", "הרב שלמה שוורץ"
Body.Add "customer_email", "612@GMAIL.COM"
'Body.Add "developer_phone", "050123456789"
'Body.Add "price_total", "380"
Body.Add "forceItemsIntoNonItemsDocument", "1"
Body.Add "show_items_including_vat", "0"

d1 = JsonConverter.ConvertToJson(Body)
Bodyitem.Add "catalog_number", "A1"
 
Bodyitem.Add "details", ",תשלום 08"
Bodyitem.Add "price", "380"
Bodyitem.Add "amount", "1"
Bodyitem.Add "vat_type", "NON"
'Bodyitem.Add "discount_price", "3"

d2 = JsonConverter.ConvertToJson(Bodyitem)
 
d9 = SHARSER(d1, d2, "item")
 

Bodypayment.Add "payment_type", "9"
Bodypayment.Add "payment_sum", "380"
Bodypayment.Add "other_payment_type_name", "TAHSLUM "
d3 = JsonConverter.ConvertToJson(Bodypayment)

d9 = SHARSER(d9, d3, "payment")
 Debug.Print d9
'Body.Add "payment", Array("payment_type", "1", "payment_sum", "250")    '"[0,1,2,3,4,5]"


Dim Client As New WebClient
Dim Response As WebResponse
cc = JsonConverter.ConvertToJson(Body)

Set Response = Client.PostJson("https://demo.ezcount.co.il/api/createDoc", d9)

Debug.Print Response.Content

Dim ResponseJson As Object
Set ResponseJson = JsonConverter.ParseJson(Response.Content)
      
'ddd = Replace(Response.Content, "\", "")
Debug.Print ResponseJson("pdf_link")
End Function



Function SHARSER(ByVal strJson As String, ByVal subDataJson As String, nameSubJson As String) As String

strJson = Mid(strJson, 1, Len(strJson) - 1)
SHARSER = strJson & ",""" & nameSubJson & """" & ":[" & subDataJson & "]}"

End Function

@clickone אמר בהצלת ילד יהודי שברוך השם יצא מכלל סכנה אבל רחוק מלחיות חיים שדומים לנורמליים.:

אני חושב ש @dovid כבר תרם בעצם נוכחות האשכול הזה, הוא הרי הבעלים של הפורום, והאשכול הזה, באישורו או לפחות בהסכמתו. (הרי הוא יכל למחוק את האשכול)

כל מי שתרם עד עכשיו כתוצאה מהאשכול הזה, זה בזכות זה שהייתה לו חשיפה כאן
(ובהזדמנות זו תודה ל @dovid על האכסנייה הנפלאה)

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

ולעצם הענין -@dovid אמר בהצלת ילד יהודי שברוך השם יצא מכלל סכנה אבל רחוק מלחיות חיים שדומים לנורמליים.:

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

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

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

אני ראיתי בהתחלה את סדרת וימאן באנגלית
בהמשך גיליתי שיש גם וימאן באנגלית עם כיתוב מתורגם לעברית
ובימים האחרונים גיליתי שיש גם סידרת גיבור באידיש

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

מצורף גם קישורים לערוצים
https://www.youtube.com/@Vayimaen
https://www.youtube.com/@Vayimaen-Israel
באידיש לא ראיתי שיש עדיין

@צבי-10 הקוד הבא אמור לעשות את העבודה
הסדר של המחיקה בכוונה הפוך
כי אחרי שמוחקים עמודה 2 עמודה 6 = עמודה 5

Sub Delete_Column()
Application.ScreenUpdating = False
Dim i As Long
    For i = 1 To Sheets.Count
         Sheets(i).Columns(6).Delete
        Sheets(i).Columns(3).Delete
        Sheets(i).Columns(2).Delete
    Next
Application.ScreenUpdating = True
End Sub

לא נדרים פלוס ולא קהילות
כנראה חברת C2P GROUP האמריקאית - המפעילה את מכשירי הסליקה מבית 'תורם'
קישור למוצר בחו"ל https://p.donary.com/productandplans
המשרדים שלהם בבית שמש

אם זה רק לתצוגה
אפשרי עם פורמט מותאם אישית
לא תמיד זה עוזר

000-0000000

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

=CONCATENATE(CHOOSE(LEFT(TEXT(B3,"[$-he-IL,8]dd mmmm yyyy;@"),2),"א","ב","ג","ד","ה","ו","ז","ח","ט","י","יא","יב","יג","יד","טו","טז","יז","יח","יט","כ","כא","כב","כג","כד","כה","כו","כז","כח","כט","ל"),MID(TEXT(B3,"[$-he-IL,8]dd mmmm yyyy;@"),3,LEN(TEXT(B3,"[$-he-IL,8]dd mmmm yyyy;@"))-6),IFERROR(CHOOSE(MID(TEXT(B3,"[$-he-IL,8]dd mmmm yyyy;@"),LEN(TEXT(B3,"[$-he-IL,8]dd mmmm yyyy;@"))-2,1),"ק","ר","ש","ת","תק","תר","תש","תת","תתר"),""),IFERROR(CHOOSE(MID(TEXT(B3,"[$-he-IL,8]dd mmmm yyyy;@"),LEN(TEXT(B3,"[$-he-IL,8]dd mmmm yyyy;@"))-1,1),"י","כ","ל","מ","נ","ס","ע","פ","צ"),""),IFERROR(CHOOSE(MID(TEXT(B3,"[$-he-IL,8]dd mmmm yyyy;@"),LEN(TEXT(B3,"[$-he-IL,8]dd mmmm yyyy;@"))-0,1),"א","ב","ג","ד","ה","ו","ז","ח","ט","י"),""))

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

תבחר בעת ירידת מקש

code_text
Private Sub XXX_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ותבדוק את הערך של Button
1= לחיצה שמאלית, 2= לחיצה ימנית, 3 =לחיצה אמצעית

@Sfsf3925
כאן https://malbruk.github.io/Google/auto-reply-attach/
יש לך מדריך מפורט

כמו כן אולי אתה יכול לפתוח מייל באאוטלוק/מייקרוסופט
בענן ולהכניס שם את כל ההגדרות

אני משתמש בשליטה מרחוק של גוגל
remotedesktop.google.com/access
ומאוד מרוצה

@שואף
תנסה אולי https://manychat.com/pricing/
יכול לתת לך מענה

@גגד באקסס אם הפורץ יודע להזריק,
נראה לי לעניות דעתי שהוא יוכל להגיע למסד נתונים לפני זה.

@אבי-203 לי יש בחברת 1COM מייל לפקס
פתחתי לצורך זה מייל חדש
והם הגדירו לי רשימה של כתובות מייל שהעברתי להם
שכל מי ששולח מייל -לכתובת החדשה
ובכותרת יש מספר פקס תקין זה שולח פקס
אני משלם להם באיזור ה-50 ש"ח
אין לזה הגבלה ברעיון

תנסה לבדוק בכמה יתנו לך את השירות הזה
יש את זה בהרבה חברות

@clickone הם מזרזים כי הרבה יותר קל לפתוח שנה בצורה מסודרת
ולא כל יומיים לפתוח סמל חדש וכו'
שלחתי לך פרטים נוספים במייל

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

תנאי-בתוך-xlookup.xlsx

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

@שלל
שים את הקוד הבא בעת לחיצה על הפקד CheckBox1

 If IsNull(CheckBox1.Value) Then
 CheckBox1.Caption = "Value is Null"
 ElseIf CheckBox1.Value = False Then
 CheckBox1.Caption = "Value is False"
 ElseIf CheckBox1.Value = True Then
 CheckBox1.Caption = "Value is True"
 End If