エクセルの学校：全文検索：Hyper Estraier：マクロ

Results of 1 - 1 of about 27301 for マクロ (0.014 sec.)

[[20050121122734]]: #score: 2167; @digest: 54de5bc69310421023e1ca01f4afc82e; @id: 11482; @mdate: 2005-01-29T02:29:46Z; @size: 2914; @type: text/plain; #keywords: shitem (15117), 力位 (12898), ロ↓ (8558), 替閉 (7815), 悲) (7380), visible (2714), 切替 (2252), ム内 (2106), commandbutton1 (1581), 部消 (1368), matchbyte (1338), 個も (1312), smallscroll (1296), ・オ (1261), searchformat (1227), null (1217), 位置 (1075), マク (1019), ボタ (1016), caption (1013), クロ (973), タン (913), シェ (903), トシ (871), ェイ (850), ドボ (833), 膨大 (698), 置を (676), イプ (630), matchcase (626), コマ (610), ーフ (573); 『マクロについて』（とも）
マクロ初心者です。教えて下さい。膨大な量のデータを入力するのに、スクロールバーで入力位置を探すのが大変だ、と思ったもので、入力位置を移動させるマクロを作り、ボタンに登録しました。（全部で30個） 30個もあるので、そのままそのボタンが表示されているままだと邪魔だと思いそのボタンたちがいる行を「表示しない」にするマクロを作ろう! と作ったのですが、そのマクロ実行するとせっかく位置を移動したのに 1番最初の位置に戻ってしまうのですが、どうしたら良いのでしょうか? ↓入力位置を移動させるマクロ↓ 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 でコマンドボタンの1が消えますよね CommandButton1.Visible = True で復活これを CommandButton1.Visible = True ・・・ CommandButton30.Visible = True (Null) ---- 基本的にはマクロは同じような処理を1度にさせようということなので、入力位置を探すためだけに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さん、ありがとうございます!! マクロって奥が深いですよね、、、でもちょっとおもしろいです。頑張ります♪ みなさんありがとうございました（^▽^）（とも） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200501/20050121122734.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ