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

[µo°Ý] ÃC¦â§P§O

[µo°Ý] ÃC¦â§P§O

¤ñ¤èªí®æ¤¤¥u­n¬OA´N¬O¬õ¦â
B¬O¶À¦â
C¬OÂŦâ
½Ð°Ý­n¦p¦ó³]©w
ÁÂÁÂ
Image 011.png
2021-10-28 17:07

ºô¸ô§ä :³]©w®æ¦¡¤Æªº±ø¥ó
https://www.managertoday.com.tw/articles/view/57315

TOP

ºô¸ô§ä :³]©w®æ¦¡¤Æªº±ø¥ó
https://www.managertoday.com.tw/articles/view/57315
jeff5424 µoªí©ó 2021-10-28 23:05


©êºp~§Ú¨S»¡²M·¡§Úªº»Ý¨D
¨ä¹êA B C¨º¨Ç¬O¥NªíªÑ²¼
¦]¬°¦³«D±`¦h
¦]¬°¬O±qWEB¶×¤J¦n´XÀÉETF¦¨¤ÀªÑ¸ê®Æ
¤@¬q®É¶¡¦³¨Ç¦¨¤ÀªÑ·|³Q«c°£
¦³¨Ç·|³Q¥[¤J
·|¤@ª½ÅÜ°Ê
¤ñ¤è¸Ì­±¦³¥x¿n¹qªºETF
¥x¿n¹qÅã¥Ü¬õ¦â
¦³Áp¹qªºÅã¥Ü¶À¦â
½Ñ¦p¦¹Ãþ
ÁÂÁÂ

TOP

¦^´_ 1# coafort

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Arr = Range("a1:e7") '¸ê®Æ½d³ò
Cells.Interior.ColorIndex = 0 'µLÃC¦â
For j = 1 To UBound(Arr, 2): For i = 2 To UBound(Arr)
    If UCase(Arr(i, j)) = "A" Then Cells(i, j).Interior.ColorIndex = 3
    If UCase(Arr(i, j)) = "B" Then Cells(i, j).Interior.ColorIndex = 6
    If UCase(Arr(i, j)) = "C" Then Cells(i, j).Interior.ColorIndex = 5
Next i: Next j
End Sub

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

·PÁ¤W­±¨â¦ì¤j¤j¸Ñ»¡
¤p§Ì¨Sªí¹F¦n
§Úªº·N«ä¬O
¦³¿ìªk¦Û¤v§P§O¬Û¦Pªº·|Åã¥Ü¤@¼ËÃC¦â
¤£»Ý­n¤â°Ê«ü©w¥x¿n¹q=¬õ¦â
¤ñ¤è¤u§@ªí¸Ì­±
¥u­n¦³¥x¿n¹q´N·|¦Û°ÊÅã¥Ü¬õ¦â
¦³Áp¹q´N·|Åã¥Ü¶À¦â
³o¼Ë´N¤£¥Î¦Û¤v§ä¦³­«½Æªº¦¨¤ÀªÑ

TOP

¦^´_ 6# coafort

½Ð°Ý¤è«K´£¨ÑÀɮסA¤]±NÅã¥Ü»Ý¨D©Mµ²ªGªº¼Ë¦¡¡A¥H«K´ú¸Õ¡AÁÂÁÂ

TOP

¦^´_  coafort

½Ð°Ý¤è«K´£¨ÑÀɮסA¤]±NÅã¥Ü»Ý¨D©Mµ²ªGªº¼Ë¦¡¡A¥H«K´ú¸Õ¡AÁÂÁÂ
samwang µoªí©ó 2021-10-29 17:08



  ½Ð°Ý¤j¤j­n¦p¦óµ¹ÀÉ®×
ÁÂÁÂ

TOP

¦^´_ 8# coafort


¥i¥Hª½±µªþ¥óÀɮפW¶Ç§Y¥i¡AÁÂÁÂ

TOP

¦^´_  coafort


¥i¥Hª½±µªþ¥óÀɮפW¶Ç§Y¥i¡AÁÂÁÂ
samwang µoªí©ó 2021-10-30 08:07


¥Ø«e¥u¦³Â²³æ­«½Æªºª½±µÅã¥Ü¬õ¦â
¦ý³o¼Ë¤À¤£²M­þ­Ó¸ò­þ­Ó­«½Æ
¦]¬°¦¨¤ÀªÑ§ó·s«á±`±`·|¦³·s¼W©Î¬O§R°£ªº
¦pªG¬O¤â°Ê§ä­«½Æº¡²Ö¤HªºÁÙ¦³¿òº|ªº°ÝÃD
¦A³Â·Ð¤j¤j¤F
·P®¦¤j¤j
    123.rar (95 KB)

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD