Say dizeye sona ekle, dizenin sonunu Ayrıştırma: Yığın/Aşırı/Flow.OkVBA, ben bir yol var özel
bu seçilmiş aşağı hücreyi zamanlarda X miktar Kopya istiyorum, ama aynı zamanda ayrıştırmak '' ya da karakter ne olursa olsun. ve kendi kişiselleştirmemimi sonuna kadar ekleyin. Ben makro kaydedici çalıştı
Stack/Aşırı/akış addonwhateveriwant.csv
ama hücre ve ne ben mesajı özelleştirmek isteyen özgü gibi görünüyor: Yani sonuç sonunda.
Sadece bir tane olduğunu varsayarsak "." (ya da karakteriniz ne olursa olsun), kaynak dizginizde instr() ve bir dizi en kolay çözüm olabilir. Bu doğrultuda bir şey:
myarray(0)="-addonwhateveriwant.csv"
myarray(1)="-addonwhateveryouwant.csv"
myarray(2)="-addonwhatevereverybodywants.csv"
myarray(...)=...
parsedString=left("Stack/Over/Flow.Ok",instr("Stack/Over/Flow.Ok",".")
For i=lbound(myarray) to ubound(myarray)
activesheet.cells(i,1)=parsedString & myarray(i)
next i
Ve ekstra serin olması, sen aralığı ile ("a1") aralığında gibi bir şeyle değerini veya "-addonwhatevereverybodywants.csv" "Yığın/Aşırı/Flow.Ok" yerini alabilir. ("c3"). değer. Bu sayede kodunuz bir dahaki sefere bu görevi yerine getirmek için çalışabilir.
Makro kaydedici, yalnızca İnternet'te arama yapmak için bir anahtar kelime vermeniz için yeterli miktarda bilgi verir. İyi şanslar
Bir VBA çözümü veya bir formül mü arıyorsunuz? Tam olarak ne yapmaya çalışıyorsun? Her hücrede Yığın/Aşırı/Akışı var, ancak '.Ok 'farklı mı? '=" Yığın/Aşırı/akış - "& B1" Yığın/Aşırı/akış - ## 'ile" ## 'olacaktır. B1'de var olan herhangi bir metin var ... – BruceWayne
" Değiştir (pathHere, ".Ok) "," addonwhateveriwant.csv ") –
@BruceWayne, Evet Bruce, bu düşünmediğim güzel bir çalışma. Öyleyse orijinal yolu ayrıştır, = Sağ/sol mu? (A1, LEN (A1), - 3) .ok'u çıkartmak ve & B1'i kullanarak özel bir ile değiştirmek. – Jonathan