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

[µo°Ý] ¤½¦¡Âà¤Æ¬°µ{¦¡»yªk¡C

¥»©«³Ì«á¥Ñ papaya ©ó 2017-11-24 07:41 ½s¿è

¦^´_ 12# GBKEE
TEST-2A.png
2017-11-24 07:37


"¤£À´ªºVBAµ{¦¡½X,¥i±N¤£À´ªº¨ç¼Æ,¤èªk,¦bVBA»¡©ú¤W¬d¬Ý¦p Application,©Î Rows"

GBKEE ¶W¯Åª©¥D:±z¦n!
·PÁ±zªº´£¿ô~­«·s¦A¬d¾\¤@¦¸¡FÁöµM¨S¦³°¨¤W»â·|¡A¦ý¸g¹L¤@¦A®M¨Ò¤l´ú¸Õ¡A²×©óÀ´±o¦p¦ó¹B¥Î^^
µ{¦¡½X«D±`µu§Y¥i
  1. Private Sub CommandButton1_Click()
  2. Range("DK7:DM" & [DM65536].End(xlUp).Row).Interior.ColorIndex = -4142
  3. Range("DK" & Application.Match(Range("DK4"), Range("DK7:DK" & Sheets("Sheet1").[DK65536].End(xlUp).Row), 0) + 6).Resize(1, 3).Interior.ColorIndex = 8

  4. End Sub
½Æ»s¥N½X
TEST-2A.rar (13.51 KB)

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2017-11-24 07:56 ½s¿è

¦^´_ 14# joblyc017

J¤j:
°£¤F¤@­Ó¦r¤@­Ó¦r­«·sºVÁä(¯uªº¤£¯à±µ¨ü¥²¶·³o¼Ë°µ)¡A¹ê¦b¤£ª¾¦p¦ó½Æ»s¶Q¸Ñµªµ{¦¡½X~
©Ò¥H¥¼¯à´ú¸Õ¶Q¸ÑµªÀɪºµ²ªG~©|½Ð¨£½Ì!
¦A¦¸·PÁ±zªº¤£§[«ü¾É^^

TOP

¦^´_ 18# GBKEE

¦h¸Õ¸Õ¬Ý«ü©wª«¥óÅܼÆ,¥i´î¤Övba½s¼gªº¿ù»~


GBKEE ¶W¯Åª©¥D:±z¦n!
±zªº¼Ð·Ç½d¨Ò¡A¤p§Ì·|¥J²Ó¬ãŪ~·P®¦

ÁÂÁ±z¤@¦Aªº·ÅÄÉ¥mÀ{¡C
­è­è¤w¦³¤Wºô­q¤F1¥»~¸ò§Ú¾ÇExcel VBA
§Æ±æ¦³©ÒÀ°§U

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD