ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý "Äæ¦ì" Âà "Ä渹" ¤è¦¡

[µo°Ý] ½Ð°Ý "Äæ¦ì" Âà "Ä渹" ¤è¦¡

½Ð°Ý¦U¦ì«e½ú¡B°ª¤â :
§Ú·Q½Ð±Ð­Ó "Äæ¦ì" Âà "Ä渹" °ÝÃD , VBAµ{¦¡¸Ì¦³¨S¦³¤ñ¸û²³æ¤è¦¡©Î«ü¥O¥i¥Hª½±µ¥Î?
¨Ò :     ¿é¤JA ¡÷ ±o¨ì1 ,  ¿é¤JB ¡÷ ±o¨ì2 , ¿é¤JCN ¡÷ ±o¨ì92  
¤Ï¤§   ¿é¤J1 ¡÷ ±o¨ìA ,  ¿é¤J2 ¡÷ ±o¨ìB , ¿é¤J92 ¡÷ ±o¨ìCN
§Ú¥u·Q¨ì¥Îexcel «Ø¹ï·Óªí¤è¦¡, ¦A¥Îlookup§@¨ú­È , ³o­Ó¤è¦¡¤Ó³Â·Ð
·PÁ¤F ~
MLB

=IF(COUNT(-A1),LEFT(ADDRESS(1,A1,2),FIND("$",ADDRESS(1,A1,2))-1),COLUMN(INDIRECT(A1&1)))

TOP

Sub TEST22()
Dim A, T
A = 92
If IsNumeric(A) Then
   T = Split(Columns(A).Address(0, 0), ":")(0)
Else
   T = Cells(1, A).Column
End If
MsgBox T
End Sub

TOP

·PÁ­㴣³¡ªL«e½úªº¤À¨É
MLB

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

·PÁ«e½úªº¤À¨É
MLB

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD