נכנסתי לאתר של חברה גדולה מאוד
ניסיתי למחוק את את כל המופעים של hidden
לפתע אני מגלה עוד כמה דברים
המידע היה שם נגיש בצורה הכי ברורה!!
מחכה לעזרתכם מה לעשות
בתודה מראש
נכנסתי לאתר של חברה גדולה מאוד
ניסיתי למחוק את את כל המופעים של 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 מראשי ופעילי העמותה
ושמעתי מאוד הרבה על העמותה כך שמבחינתי אני לא רואה שום הבדל בינה לבין קופת העיר/ועד הרבנים
כמו"כ התגובה שלי היתה קצת חפוזה עקב כך שאני מכיר את המקרה ולא נעים לשמוע שאנשים חושבים ...
בכל אופן אשתדל מחר לקשר אותך עם הנ"ל
@צבי-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
@שוהם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
ומאוד מרוצה
@גגד באקסס אם הפורץ יודע להזריק,
נראה לי לעניות דעתי שהוא יוכל להגיע למסד נתונים לפני זה.
@הדר כניסה עם גלישה בסתר יכול לעזור
או ממחשב אחר שהיה כבר פתוח שם
לשים לב לא לנסות יותר מיידי, כך נראה לי בכל אופן
@אף-אחד-3 איזה בנק?
הפועלים ומזרחי ופאגי
למיטב ידיעתי לא שולחים כקובץ מצורף
נראה לי שמרכנתיל כן
@clickone מענין שלנדרים פלוס היה בעיה בערב שבועות
במסוף אחר שיש לי הכל עובד תקין
הצלחת להבין למי כן ולמי לא
@חוקר אמר בשימוש בגימייל על ידי API ו/או SMTP:
ומוכרח לעבור לאימות דו שלבי
אין לי באמת מושג לגבי ההיקפים של השימוש במייל שלך
אבל היה לי אחד מהמיילים שעברתי לאימות דו שלבי
ואפשר לסמן שהמחשב הוא שלי ואין צורך לבקש את האימות
כך שרק אם אני נתקע פעם בלי המחשב שלי
או במקומות הלא קבועים שלי
יש צורך באימות
עם הקוד הבא באאוטלוק זה עובד מיד כשמתקבל מייל
כמובן שזה תלוי בהגדרות של אאוטלוק
וזה חייב לשבת על מחשב פעיל כל הזמן
https://www.tachytelic.net/2017/10/how-to-run-a-vba-macro-when-new-mail-is-received-in-outlook/
@חשמל זה אפשרי בהחלט
מפתחים>מיפוי XML
ואז לבחור משהו- שזה בדרך כלל מאפייני מסמך!, אשמח אם מישהו יתקן אותי.
ואז למפות פקד תוכן כמה פעמים היכן שהינך רוצה במסמך
אחרי כל עדכון של פקד אחד הכל יתעדכן.
מצורף דוגמא
מצגת1.mp4
@מנצפכ השאלה האם ימות מקבל את התשובה כמו שכתוב
או עם כל התגיות מסביב
@מנצפכ איך אתה מגדיר בימות את החיבור לגוגל?
ומה קורה שאתה ניגש מדפדפן.
תוכל לפרט יותר בבקשה.
@מנצפכ מה מוגדר בימות המשיח?
מה אתה מנסה לחבר למה?