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

[µo°Ý] ½Ð±Ð¦p¦ó²¤Æ«ü¥O¤Î¦b¦p¦ó¤@¯ë¼Ò²Õ¤¤¨Ï¥Î

¦^´_ 1# dino1978
¥²¶·¬O¨C­Ó¤u§@ªí³£¦³CommandButton2 - CommandButton18ªº±±¨î¶µ
  1. Option Explicit
  2. Sub RemoveButton()
  3.     Dim I As Integer
  4.     With ActiveSheet
  5.         For I = 3 To 17
  6.             If .Cells(I, "C") <> "" Then
  7.                  .OLEObjects("CommandButton" & I - 2).Visible = True
  8.             Else
  9.                 .OLEObjects("CommandButton" & I - 2).Visible = False
  10.             End If
  11.         Next
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# dino1978

³o°ÝÃD¦b©óµ{¦¡½X¬O±±¨î¤u§@ªí¤ºªº«ö¶sÅã¥Ü±¡§Î
­Y¬O¨C­Ó¤u§@ªíªº«ö¶s¦WºÙ¤£¦P¡A¨º´NµLªk¨Ï¥Î¦¹µ{¦¡½X­×§ï
©Ò¥H¡A§A³o¼Ëªº°ÝÃD¥²¶·½T»{¨C­Ó¤u§@ªíªº«ö¶s¦WºÙ¬O§_¬Û¦P
¦A¨Ó´N¬O§AÅX°Ê¥¨¶°ªº¤è¦¡¬°¦ó?¦b¤@¯ë¼Ò²Õ¤º­n°õ¦æµ{¦¡¡A¥i¨Ï¥Î§Ö³tÁä©Î«ö¶sµ¥¤èªk
©Ò¥H°õ¦æµ{¦¡ªº¤èªk¤]·|¼vÅTµ{¦¡ªº¼¶¼g
«Øij±z¤W¶ÇÀɮ׬ݬÝ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD