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

[µo°Ý] ÀH¤ß©Ò±ý·s¼W¦C»P±±¨î¶µ

[µo°Ý] ÀH¤ß©Ò±ý·s¼W¦C»P±±¨î¶µ

½Ð±Ð¤j¤j­Ì~
­Y·Q­n¦b¥Ø«eÀx¦s®æ«ö¤U¡u´¡¤J¡v«ö¶s¡A·|´¡¤J·sªº¤@¦C¡A¨Ã¥B¦b·sªº¤@¦C¤¤·|·s¼W¤@¦C®Ö¨ú¤è¶ô¡H
¦b¥Ø«eÀx¦s®æ«ö¤U¡u§R°£¡v«ö¶s¡A·|§R°£¾ã¦C¥]¬A©Ò¦b¦Cªº®Ö¨ú¤è¶ô¡H¡H
Private Sub ´¡¤J_Click()
Dim i As Integer
Dim k As Integer
Dim ob As OLEObject
Dim xR  As Range

With ActiveSheet
gyou = Selection.Row
ActiveSheet.Rows(gyou ).Insert
Range("M1").Value = Range("M1").Value + 1

k = gyou + 1
Set xR = Cells(k, 3)
For i = 1 To 3
    Select Case i
        Case "1"
        mystr = "¥\¯à©Ê»Ý¨D"
        Case "2"
        mystr = "·P©x©Ê»Ý¨D"
        Case "3"
        mystr = "ÁôÂûݨD"
    End Select
   
    With xR.Offset(, i)
         Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
         ob.Object.Caption = mystr
    End With
Next

End With
End Sub

·í§Ú¦b©Ò¦b¦C«ö¤U¡u´¡¤J¡v¡A©Ò¦b¦C¥»¨Óªº®Ö¨ú¤è¶ô¨Ã¤£·|©¹¤U²¾¡A¦Ó¬O¦b¤U¤@¦C·s¼W®Ö¨ú¤è¶ô¬O¬°¤°»ò©O¡H¡H

6-11(new).rar (113.44 KB)

Ä_Ä_

¥ý¦^¤@¤U"²Ä2/3­Ó"°ÝÃD
2. §â²{®É¿ï¤Wªºrow©Mcheckbox delete (checkbox ¥Îtop¨Ó©w¦ì)
  1.     Dim objCurrRow As Object
  2.     Dim intCurrTop As Long
  3.     Dim intNextTop As Long
  4.     With Selection
  5.         intCurrTop = .Top
  6.         intNextTop = .Offset(1, 0).Top
  7.     End With
  8.    
  9.     For Each s In ActiveSheet.Shapes
  10.         If s.Top >= intCurrTop And s.Top < intNextTop And Left(s.Name, 8) = "CheckBox" Then
  11.             s.Delete
  12.         End If
  13.     Next
  14.     Selection.EntireRow.Delete
½Æ»s¥N½X
3.
"·í§Ú¦b©Ò¦b¦C«ö¤U¡u´¡¤J¡v¡A©Ò¦b¦C¥»¨Óªº®Ö¨ú¤è¶ô¨Ã¤£·|©¹¤U²¾¡A¦Ó¬O¦b¤U¤@¦C·s¼W®Ö¨ú¤è¶ô¬O¬°¤°»ò©O¡H¡H"
§â
k = gyou + 1
´«¦¨
k = gyou
¸Õ¸Õ...
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

·PÁÂk¤j¤jªºÀ°§U
¦³¨S¦³¤°»ò¤èªk¥i±N±±¨î¶µ©¹¤U²¾©O¡H  
Dim objCurrRow As Object
Dim intCurrTop As Long
With Selection
        intCurrTop = .Top
End With
   
For Each s In ActiveSheet.Shapes
        If s.Top >= intCurrTop Then
            s.offset(1,0)
        End If
Next

§Æ±æ¬O±N©Ò¦b¦C¥H¤U(¥]¬A©Ò¦b¦C)ªº±±¨î¶µ¥þ³¡©¹¤U²¾¤@¦C
Ä_Ä_

TOP

  1. Sub yy()
  2.     r = ActiveCell.Row'©Ò¦b¦C
  3.     For Each s In ActiveSheet.Shapes
  4.         If s.TopLeftCell.Row >= r Then
  5.             h = s.TopLeftCell.RowHeight'¨ú±o¦C°ª
  6.            s.Top = s.Top + h
  7.         End If
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD