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

[µo°Ý] ªí³æ¨÷¶b»P¤u§@ªí±²¶b

¦^´_ 1# shadowming
  1. Private Sub ScrollBar1_Change()
  2. With ScrollBar1
  3.    .Max = 1000
  4.    .Min = 1
  5.    [A1] = .Value
  6. End With
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# shadowming
  1. Private Sub ScrollBar1_Change()
  2. With ScrollBar1
  3.    .Max = 1000
  4.    .Min = 1
  5.    Sheet1.[A1] = .Value
  6. End With
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD