½Ð°Ý¦b¦r¦ê¤¤§ä¦r¤¸ªº¶i¶¥¥Îªk
- ©«¤l
- 32
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-4-28
- ³Ì«áµn¿ý
- 2021-7-6
|
½Ð°Ý¦b¦r¦ê¤¤§ä¦r¤¸ªº¶i¶¥¥Îªk
¦U¦ì¤j¤j
½Ð°Ý¤@¤U, §Ú¦³¤@Ó¦b¦r¦ê¤¤·j´M¦r¤¸ªº°ÝÃD, ¦p¤U
§Úªº¦r¦ê«Üªø , ¸Ì±¦³6Ó _ , ¦pªG§Ún§ä²Ä¤Ó _ , ¦³¨S¦³¤ñ¸û¦nªº¤èªk©O?
§Úª¾¹D¦³InStr³oӤ覡¥i¥H¥Î , ¦p Instr(38, ¦r¦ê, "_")
¦ý¬O§Úªº¦r¦ê¦³®ÉÔªø«×·|ÅÜ, ¦pªG«ü©w38¦ì¸m¶}©l§ä, ¦³®É«á·|§ì¿ù
¦³¨S¦³¤°»ò¤èªk¥i¥Hª½±µ§ä¨ì¦r¦ê¤¤¤Ó _ ªº¦ì¸m?
·PÁÂ
¦r¦ê=TouchTest_check_20180630_104354_108F02_68HR-R_K8 |
|
MLB
|
|
|
|
|
- ©«¤l
- 1387
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1397
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2024-11-24
|
|
google"EXCEL°g" blog ©Îgoogleºô§}:https://hcm19522.blogspot.com/
|
|
|
|
|
- ©«¤l
- 6
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 275
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- office2016
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2019-9-6
- ³Ì«áµn¿ý
- 2024-11-24
|
¥»©«³Ì«á¥Ñ JasnH ©ó 2019-10-19 18:25 ½s¿è
Sub test1()
p = 5 'The position of nth "_"
tx = Cells(1, 1)
For i = 1 To Len(tx)
If Mid(tx, i, 1) = "_" Then jo = jo & " " & i
Next i
s = Split(Mid(jo, 2))
Ans = s(p - 1)
MsgBox "The position of " & p & "th ""_"" is " & Ans
End Sub |
|
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-4-28
- ³Ì«áµn¿ý
- 2021-7-6
|
·PÁ¨â¦ì¤j¤jªº¸Ñµª, §Ú«á¨Ó§ä¤F¤@¤U¸ê®Æ
§Ú·Q¨ì¤U±³oӤ覡¤]¥i¥Hºâ¥X¨Ó
Sub test()
Dim no As Byte
Dim Data As String
Data=Cells(3,32).Value ''''' ¦r¦ê¦ì¸m
no=Cells(5,32).Value ''''' n§ä²Ä´XÓ _
Count=0
data_split = Split(Data , "_")
For i=1 To no
Count = Count+1+Len(data_split(i-1))
Next i
MsgBox("²Ä" & no & "Ó_ªº¦ì¸m¬O" & Count)
EndSub |
|
MLB
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-23
|
Sub TEST_01()
Dim T$, TR, V%
T = "TouchTest_check_20180630_104354_108F02_68HR-R_K8"
V = 5
TR = Split(T, "_")
If V <= 0 Or UBound(TR) < V - 1 Then MsgBox "¶W¹L¨ú¦r½d³ò!!": Exit Sub
MsgBox TR(V - 1)
End Sub |
|
|
|
|
|
|