די נומבערס ליגן אין עקסעל?
יעדע בילד אין אן עקסטערע פאלדער?
וויאזוי זאלן די פאלדערס הייסן?
ועשה הרבה, און קוק מער וואס ער טוהט.
די אחראים: זייער נייגעריג , אחראי , thefact
קאוד: וועל אויס אלע
=SUMPRODUCT((A2:A500<>"")/COUNTIF(A2:A500,A2:A500&""))
קאוד: וועל אויס אלע
[SumProduct((Sheet1.Range("A2:A500") & "<>""") / wsf.CountIf(Sheet1.Range("A2:A500", Sheet1.Range("A2:A500") & """")))]
אדער
wsf.SumProduct((Sheet1.Range("A2:A500") & "<>""") / wsf.CountIf(Sheet1.Range("A2:A500", Sheet1.Range("A2:A500") & """")))
קאוד: וועל אויס אלע
Sub openfile()
Set alte = CreateObject("word.Application")
alte.documents.Open "C:\" 'YOUR FILE PATH AND NAME HERE
alte.Visible = True
End Sub
קאוד: וועל אויס אלע
sub openprogram()
Dim asd as object
Set asd = createobject ("wscript.shell")
asd.exec "c/.........."
End sub
קאוד: וועל אויס אלע
sub openprogram()
Dim asd as object
Set asd = createobject ("wscript.shell")
asd.run "winword.exe"
End sub
קאוד: וועל אויס אלע
Range("E" & Cells.Rows.Count).End(xlUp).Select
למעלה משבעים האט געשריבן: איך ווייס נישט צו דאס וועט דיר העלפן היות די קומסט נישט אריין אזוי קלאר, אבער איך האב א פייל וואס ברענגט דיר אריין די ליסט פון פייל'ס וואס ליגט אין א פאלדער, און ריקט עס צו וועלכע פאלדער די הייסט אים.
דהיינו די דארפסט אריין לייגן אין סעל C7 די פאלדער לאקעישן, לדוגמא C:\Users\User\Documents
און פארגעס נישט אנצושטעלן אין סעל C8 צו די ווילסט ער זאל דיר ארויסגעבן די סוב-פאלדער'ס (ביי דיפאלט האב איך עס געלייגט אויף FALSE)
דערנאך לייג אריין אין סעל E11 די לאקעישן ווי די ווילסט ער זאל עס ריקן לדוגמא C:\Users\User\Desktop\בילדער
מאך זיכער אז די אלע דריי זאכן זענען אריין געלייגט, דערנאך דריק קודם ליסט פייל'ס, קוק דורך צו די ווילסט טאקע אלעס ריקן אויב נישט מעק אים אויס, און פארגעס נישט צו זיכער מאכן אז עס בלייבט נישט קיין ליידיגע סעל'ס, דערנאך דריק מאוו פייל'ס, קוק איבער אין קאלום F די נאוט צו ער האט טאקע אלעס געריקט אדער געהאט פראבלעמען.
דא האסטו די פייל.