[[20050121122734]]　『マクロについて』（とも）　ページの最後に飛ぶ

『マクロについて』（とも）

 マクロ初心者です。教えて下さい。
 膨大な量のデータを入力するのに、スクロールバーで入力位置を探すのが大変だ、
 と思ったもので、入力位置を移動させるマクロを作り、ボタンに登録しました。
 （全部で30個）
 30個もあるので、そのままそのボタンが表示されているままだと邪魔だと思い
 そのボタンたちがいる行を「表示しない」にするマクロを作ろう！
 と作ったのですが、そのマクロ実行するとせっかく位置を移動したのに
 １番最初の位置に戻ってしまうのですが、どうしたら良いのでしょうか？

 ↓入力位置を移動させるマクロ↓
  Sub 切替6()
    Columns("A:A").Select
    Selection.Find(What:="6", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, MatchByte:=False, SearchFormat:=False).Activate
    Range("D2015").Select
    ActiveWindow.SmallScroll Down:=15
  End Sub

 ↓表示しないのマクロ↓
  Sub 切替閉じる()
    Rows("4:12").Select
    Range("C4").Activate
    Selection.EntireRow.Hidden = True
    Range("F3").Select
  End Sub

 ちなみにこれはツール→マクロ→新しいマクロの記録で
 操作を記録させたものです。他のやり方が分からないもので・・・
 よろしくお願いします。

 CommandButton1.Visible = False
 でコマンドボタンの１が消えますよね

 CommandButton1.Visible = True
 で復活

 これを
 CommandButton1.Visible = True
 ・
 ・
 ・
 CommandButton30.Visible = True

 (Null)

 基本的にはマクロは同じような処理を１度にさせようということなので、
 入力位置を探すためだけに30個のマクロを使うこともなさそうですね。
 ひとつのマクロで、入力位置の条件を指定したほうが早いのではないでしょうか。
 (sato)

 Nullさん、ありがとうございます。
 ちなみにボタンはオートシェイプで作っているのですが･･･
 オートシェイプに変えてやってみたのですがエラーがでます。

 satoさん、ありがとうございます。
 そのやり方が分からないため、30個もマクロをえんこらえんこら
 作ったわけなのです(T_T)

 ActiveSheet.Shapes(1).Visible = False

 ですかね？
    Dim ShItem As Shape
    For Each ShItem In ActiveSheet.Shapes
        ShItem.Visible = False
    Next
 ↑のマクロを実行するとあるものすべてけしちゃいますよ
 なんか条件をいれてあげればつかえるのでは？

 (Null)

 Nullさんありがとうございます！！
 だいぶ確認が遅れましたが、なるほど、ボタンが全部消えました!!
 でも･･･ちょっとイメージと違います(悲)

 なので、ちょっとやり方を変えて、ユーザーフォームを作って
 そのフォーム内にマクロボタンを作ろう！！と思うのですが、、、、
 ユーザーフォーム内のコマンドボタンの名前(caption)に
 エクセルのセルの内容を反映させることは出来るでしょうか？？

 Private Sub UserForm_Initialize()
  CommandButton1.Caption = Worksheets("Sheet1").Range("A1").Value
 End Sub

 (INA)

 INAさん、ありがとうございます！！

 マクロって奥が深いですよね、、、でもちょっとおもしろいです。
 頑張ります♪
 みなさんありがとうございました（＾▽＾）

 （とも）

コメント返信：

[ 一覧(最新更新順) ]

[[20050121122734]] 『マクロについて』（とも） ページの最後に飛ぶ

[[20050121122734]]　『マクロについて』（とも）　ページの最後に飛ぶ