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

@מוגן
כנ"ל

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

האם זה אכן דבר כזה נחוץ בקניית מחשב אם חומרה ברמה גבוהה?

עדכנתי את המחשב, ואחר הוא מערכת ההפעלה לא עולה
איך אני יכול לתקן את זה?

תודה!

תודה!

@מעמד אמר בהאם חנות האופטיקה צריכה להביא לי את מספר המשקפיים ?:

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

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

@searchnicks אמר בהאם חנות האופטיקה צריכה להביא לי את מספר המשקפיים ?:

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

אפשר קישור?

@אינדזיינער אמר באז מה זה באמת 'עותק' בג'ימייל?:

[יכול להיות שזה עוזר לשמור על הסדר איכשהו

כן,
כי מישהו שזה ממוען אליו
ויש אלו שמקבלים עותקים
נראה יותר משהו סמלי

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

אפשר תמונת מסך של התוכנה?

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

@בערל אמר במיקרופון של האוזניות לא עובדות בכרום:

אפשרת לאפליקציות שולחן עבודה לגשת למיקרופון שלך?

זה הפתרון
תודה

אבל עכשיו הבעיה שזה נראה מקליט
אבל בפועל יוצא קובץ ריק
פה:https://voice-recorder-online.com/

אולי נטפרי?

כן
לך מופיע?

לא עובד,
ומה שהבאת אין אפשרות להעפיל
זה חוזר לב"ב אחרי הרענון

@בערל אמר במיקרופון של האוזניות לא עובדות בכרום:

וכעת זה עובד?

לא
ובEDGE שכן נמצא ברשימה בווינדוס
ונתתי אישור זה עובד

@בערל אמר במיקרופון של האוזניות לא עובדות בכרום:

צריך לאשר בהגדרות הדפדפן:
chrome://settings/content/siteDetails

אישרתי באתר הספציפי
https://voice-recorder-online.com/

https://support.microsoft.com/he-il/help/4034886/accessories-headset-troubleshooting-microphone-issues
זה לא עוזר
כי אין לי כרוס לא נמצא ברשימה של האפליקציות כך שאין לי אפשרות לאשר

פתרון?

@dovid אמר בHello World :

למשל לכאורה הוא יקרוס אם מישהו ינקה את הסינונים

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

@dovid אמר בHello World :

כעת שאלות:
ActiveWorkbook.SlicerCaches(SlicerYear).SlicerItems.Count - 1

למה המינוס 1?

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

ותודה על העידוד!
מחזק!

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

רציתי לסנן עם הסליקרים של אקסל חודש הנוכחי
מצרף את התוצאה הרצויה שב"ה עובדת

וזה הקוד:

Sub סנן_להיום()
    
'שם הסליקר
SlicerMonth = "Slicer_חודש2"
SlicerYear = "Slicer_שנה2"
   
'ביטול סינונים קודמים
ActiveWorkbook.SlicerCaches(SlicerMonth).ClearManualFilter
ActiveWorkbook.SlicerCaches(SlicerYear).ClearManualFilter

'ספירת פריטים בסליקר
Dim countSlicerMonth As Integer
Dim countSlicerYear As Integer
countSlicerMonth = ActiveWorkbook.SlicerCaches(SlicerMonth).SlicerItems.Count - 1
countSlicerYear = ActiveWorkbook.SlicerCaches(SlicerYear).SlicerItems.Count - 1
        
'כיבוי כל הפריטים
Dim i As Integer
For i = 1 To countSlicerMonth
    ActiveWorkbook.SlicerCaches(SlicerMonth).SlicerItems(i).Selected = False
Next i

For i = 1 To countSlicerYear
    ActiveWorkbook.SlicerCaches(SlicerYear).SlicerItems(i).Selected = False
Next i

'הגדרת התאריכים
Dim myMonth As String
Dim myYear As String
myMonth = Month(Date)
myYear = Year(Date)


'הפעלת התאריכים
ActiveWorkbook.SlicerCaches(SlicerMonth).SlicerItems(myMonth).Selected = True
ActiveWorkbook.SlicerCaches(SlicerYear).SlicerItems(myYear).Selected = True
  
End Sub

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

תודה!!

והתשובה הגיע מפה
https://stackoverflow.com/questions/61296910/vba-excel-worksheet-selectionchange-returns-an-error-if-the-condition-is-false

להלן הקוד:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 4 And Target.Cells.Count = 1 And Target.Offset(, -1).Value = 0 Then

    C = Target.Offset(, -1).Address
    UserForm1.Show
    
End If

End Sub

אם אני בוחר תא שהתנאי לזה הוא שלילי קופץ לי הודעה כזאת:

למה?

@avr416 אמר בכניסה לעולם התיכנות:

אם יש לך את הספר של ברזיק על JS - לדעתי תתחיל איתו.

אוקיי
אני הולך על זה....