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

¦p¦ó¥ÎVBA±N²Õ¦X¤è¶ô°µ¨ì¤U²M³æ¥\¯à½Ð«ü±Ð

¦p¦ó¥ÎVBA±N²Õ¦X¤è¶ô°µ¨ì¤U²M³æ¥\¯à½Ð«ü±Ð

¦p¦ó¥ÎVBA±N²Õ¦X¤è¶ô°µ¨ì¤U²M³æ¥\¯à½Ð«ü±Ð

¯à½Ð«ü±Ð.rar (6.71 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-11-24 15:28 ½s¿è

¦^´_ 1# gca78000
PS: ¦³§ó¥¿
²M³æ¤u§@ªí¼Ò²Õªºµ{¦¡½X
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     With Target
  3.         If .Address = "$A$2" And IsNumeric(.Text) Then  'A2
  4.             With Sheets("¸ê®Æ°Ï").Range("B1")
  5.                 ComboBox1.List = .Resize(.Cells.End(xlDown).Row).Value
  6.             End With
  7.             If .Cells >= 0 And .Cells <= ComboBox1.ListCount Then
  8.                 ComboBox1.Value = ComboBox1.List(.Value - 1)
  9.             End If
  10.         End If
  11.     End With
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2015/11/24 14:56): «ç¼Ë¤£¦æ,ªþÀɬݬÝ

¦^´_ 2# GBKEE


    ÁÂÁª©¤j«ü¾É¦ý­è´ú¸Õ¤£¦æ­C...

TOP

¦^´_ 3# gca78000


    ¯à½Ð«ü±Ð.rar (15.65 KB)

TOP

¦^´_ 4# starry1314
ÁÂÁ«ü¾É½Ð°Ýª©¤j¬°¦ó¥Î²Õ¦X¤è¶ôÂI¿ïA1µLªk¸òµÛÅܤÆ

TOP

¦^´_ 5# gca78000
¤p§Ì¥´¿ù¬OA2¤~¹ï¥Î²Õ¦X¤è§ÖÂI¿ïA2µL°ÊÀR­C¦Ó½Ð¤@¶}©l¬°¦ó­n¦bA2°õ¦æ¹L«á²Õ¦X¤è¶ô¤~·|¦³°Ê§@

TOP

¦^´_ 6# gca78000
A2µL°ÊÀR  ¤u§@ªí¼Ò²Õ¦³³\¦h¹w³]ªº¨Æ¥óµ{§Ç


·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE
ÁÂÁª©¤j¼ö¤ß¸Ñµª¤p§Ì¨ü¯q¨}¦h..

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD