Results of 1 - 1 of about 27291 for マクロ (0.014 sec.)
- [[20040715132607]]
- #score: 2168
- @digest: 0d02559f7c6986d678a7ec672155ab3a
- @id: 7761
- @mdate: 2004-07-20T00:45:32Z
- @size: 10568
- @type: text/plain
- #keywords: comname (50659), 右メ (40875), ル罫 (34278), 線青 (28639), barname (27534), 線削 (27333), 線赤 (25088), ニコ (17158), begingroup (16854), commandbars (13227), 夏目 (9400), linestyle (8609), 目雅 (8427), 雅子 (7587), 罫線 (7551), 子似 (7172), xledgebottom (7026), borders (6948), リジ (6290), onaction (6255), ンイ (6040), ジナ (5956), nana7 (5337), オリ (5291), controls (5105), ナル (4497), ルバ (4120), xlcontinuous (3969), ツー (3636), ル- (3525), ー設 (3092), マー (2700)
- 『セルの書式設定の中にある罫線をツールバー上に』（れ）
セルの書式設定→罫線（下線を選ぶ）→色付きを指定して赤とします。 毎回この順序では時間がかかるので常にツールバー上に出しておきたいのですが・・・。 罫線をクリックしたらすぐに赤色が付くように。 できれば、赤と青2種類簡単に出したいのです。教えてください。 ---- こんにちは。マクロでできますよ。 マクロで「赤い罫線をつけるまで」と「青い罫線をつけるまで」を二つ登録しておいて マクロを実行するボタンをツールバーにだして、それぞれマクロを指定すれば・・・・ (nana7) ---- マクロを使ったことがないのでやりかたがわからないのですが・・・・。 ---- その書式をスタイルに登録して、スタイルの選択ボックスを ツールバーに放り込むのはいかがでしょうか? ツールバーには「表示→ツールバー→ユーザー設定」「コマンド」タブの 分類:書式 コマンド:スタイル□▼ をドラッグして放り込みます。 マクロの方が楽かな?? (Hatch) ---- ツールバーのマクロボタンの作り方です メニューバーのツール→ユーザー設定→コマンドタブ→マクロ→ 黄色のニコマークをツールバ ーにドロップ→選択したボタンの編集→ ボタンイメージの編集→すべてクリア→赤でアンダーラインを書く→OK→閉じる 作成した赤ラインボタンをクリック→赤ラインマクロを登録 (mana) すいません修正しました ---- マクロボタンを作る前にマクロの使い方がわからないとのことなので。 マクロの登録の仕方 1.ツール-マクロ-マクロの新しい記録-マクロ名はお好みでつける-OK (ここから記録が始まっています） 2.記録したい操作をします。セルの書式設定→罫線（下線を選ぶ）→色付きを指定して赤 3.操作が終わったら記録を終了するので ツール-マクロ-記録の終了 をします。 登録されているか確認します。 ツール-マクロ-マクロ で開いてくるダイアログの中に お好みでつけたマクロ名はみあたりますか? ここまでまずはできますか?(nana7) ---- マクロの登録をしたら(mana)さんのツールバーのマクロボタンの作り方をすれば オッケーです♪(nana7) ---- 横からお邪魔します。 罫線なら手軽に右クリックに登録で、 どうでしょう? 個人用マクロブックに保存するといいかもしれませんね。 （夏目雅子似） '右メニューに追加 Sub NewCom1() Dim NewC1 As CommandBarButton Set NewC1 = Application.CommandBars("Cell").Controls.Add() With NewC1 .Caption = "オリジナル罫線赤" .OnAction = "罫線赤" .BeginGroup = True End With End Sub '右メニューに追加 Sub NewCom2() Dim NewC2 As CommandBarButton Set NewC2 = Application.CommandBars("Cell").Controls.Add() With NewC2 .Caption = "オリジナル罫線青" .OnAction = "罫線青" .BeginGroup = False End With End Sub '右メニューに追加 Sub NewCom3() Dim NewC3 As CommandBarButton Set NewC3 = Application.CommandBars("Cell").Controls.Add() With NewC3 .Caption = "オリジナル罫線削除" .OnAction = "罫線削除" .BeginGroup = False End With End Sub '実行マクロ赤 Sub 罫線赤() With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 3 End With End Sub '実行マクロ青 Sub 罫線青() With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 5 End With End Sub '罫線削除 Sub 罫線削除() With Selection .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone End With End Sub '右メニューから削除 Sub DeleNewCom1() Application.CommandBars("Cell").Controls("オリジナル罫線赤").Delete End Sub '右メニューから削除 Sub DeleNewCom2() Application.CommandBars("Cell").Controls("オリジナル罫線青").Delete End Sub '右メニューから削除 Sub DeleNewCom3() Application.CommandBars("Cell").Controls("オリジナル罫線削除").Delete End Sub ------ ネットで検索したら、こんなのがありましたぁ。。 載せていいのかなぁ。。だめだったら、消してくださいね。 校長先生お願いします。m(__)m （夏目雅子似） http://www.geocities.co.jp/Athlete-Athene/1964/Macro1.html ---- nana7さんの方法で登録できました。その後、nanaさんの方法でやってみました。 ツールバー上にニコマークを移動させた後、選択したボタンの編集をあけたあとからが解りません。すべてクリアとはどういう事でしょう????。 ---- 今開いてるニコチャンマークを消すためにクリアするってことです。 OK キャンセルの下のクリアを押せば消えます。 もう少しですね、頑張って^^v （川野鮎太郎） ------ またまた、私の右くりっくは場違いだったようで。。。(@_@) 当然といえば当然なんですけど。。。また、おひまな時にためして みてくださいね。はぁ、、、お恥ずかしい限りです。がく。。 お邪魔しましたぁ。。。ほんと、ごめんなさいねm(__)m もう、すこしです。頑張ってください。 （夏目雅子似） ---- そんなに肩を落とさずとも(^_^A; 私は、夏目雅子似さんのも大変良いと思いますよ。 ...ρ(..、)ヾ(^ロ^;)ヨシヨシ （川野鮎太郎） ---- すみません。夏目さん。私にはかなり高度すぎるので理解不可能でした。 今回、初めてマクロという物にふれました。ホント初めてなのです。 しかも、まだ解らないところが。 すべてクリアした後ニコちゃんマークは消えてしまい、元のエクセル画面になってしまいました。赤でアンダーラインを書くって言うのはどこにどうすればいいのでしょうか???? 一つ一つ聞いてしまってホント申し訳ないです。初心者でお恥ずかしいです。 是非お力を〜〜〜〜〜〜〜〜〜。 ---- すべてクリアしたあとで、OKボタンを押したものと思われます。 何も書いてないアイコン（元々ニコチャンだった）があるはずですから、 再度右クリック-ボタンイメージの編集を押してください。 中ほどに色のパレットがあるので赤を選択して、左側の図の中に赤い線を引いてください。 線はマウスを左クリックしたまま左右に動かせば引けます。 好みの線が出来たら、OKを押してください。 次のステップとして、出来たアイコンを右クリック-マクロの登録-初めに作ったマクロを選択して-OK これで、赤線を引くマクロのアイコンが出来たことになります。 （川野鮎太郎） ------ ---- ひとつかきわすれてました。 選択したボタンの編集を押したところクリア、キャンセルとかクリアとかの文字がないのですが・・・・。どこで間違ってるのでしょうか私は。 ニコちゃんマークは移動できた、そのあと選択したボタンの編集をおした。 けど、いろんな操作名はでてましたがクリアがない???? ---- >そのあと選択したボタンの編集をおした そのあとボタンイメージの編集を押してください。 あとは先ほど書いたとおりです。 （川野鮎太郎） ---- （れ）さん大丈夫ですか? 私なりに続きを説明しますね(^o^)丿 マクロの登録にお好みであった名前を付けたものがあった、のあとから説明します。 1.ツール-ユーザー設定-コマンドタブー分類のマクロを選択 （にこちゃんマーク）ユーザー設定ボタンをドラッグして ツールバーの好きなところに移動します。 ※このニコちゃんマークはとりあえずこのままでも使えますし、 変えたいならその方法はあとで説明しますね。 2.ユーザー設定のダイアログは開いたままの状態で、 ツールバーにドラッグしたにこちゃんまーくを右クリックして、 「マクロの登録」を選択すると、さっき登録したマクロのお好みの名前のものが ありますか?それを選択してOKする。 すると、にこちゃんまーくをクリックしたときはそのマクロを自動的に実行するよ、 という意味になります。 登録し終わったら、ユーザー設定のダイアログは閉じて、どこかセルを選択して、にこちゃんマークをクリックしてみましょう。 赤い罫線はひけましたか? 同じように青い罫線がつくようなニコちゃん、マークを設定してOKです。 まずはここまでで最初の目的は達成しそうですよ、頑張って^^(nana7) ---- ※ニコちゃんマークを変えたい場合 にこチャンマークが二つ同じだとどっちがどっちかわからなくなると思うので変更したい、 と言う場合には 1.もう一度、ユーザー設定ダイアログを出した状態で操作します。 2.ダイアログを出したらにこちゃんまーくの上で右クリックします。 3.すでにあるものの中から選択するなら「ボタンイメージの変更」から選択して終わりです。 自分で好きな絵にしたいなら「ボタンイメージの編集」を開きます。 1.にこちゃんまーくがあるとおもうので、「クリア」ボタンをおして絵を消し、 2.色の中から好きなものをえらんで、 （たとえば赤を選んでにこちゃんまーくが元あったところに線をかけば、 赤線を引くようなイメージの絵になってわかりやすいかもしれないですね） で、OKします。 わからないことがあればまた聞いてくださいねー (nana7) ------ 右クリックメニューでなく、ツールバーごとマクロで作成しては如何でしょうか? 簡単なので、ぜひお試し下さい。 1.ALT + F11キーで、VBEを起動 2.挿入-標準モジュール 3.標準モジュールのコードウィンドウに以下のコードをコピペ 4.EXCELに戻って、ツール＞マクロ＞マクロ＞から ボタン作成 を実行 Sub ボタン作成() Dim BarName As CommandBar Dim ComName As String ComName = "myButton" For Each BarName In Application.CommandBars If BarName.Name = ComName Then Application.CommandBars(ComName).Delete Exit For End If Next With Application.CommandBars.Add() .Name = ComName .Position = msoBarTop .Visible = True End With With Application.CommandBars(ComName).Controls.Add() .Caption = "下罫線(赤)" .OnAction = "myRed" .Style = msoButtonCaption End With With Application.CommandBars(ComName).Controls.Add() .Caption = "下罫線(青)" .OnAction = "myBlue" .Style = msoButtonCaption .BeginGroup = True End With End Sub Sub ボタン削除() Dim BarName As CommandBar Dim ComName As String ComName = "myButton" For Each BarName In Application.CommandBars If BarName.Name = ComName Then Application.CommandBars(ComName).Delete Exit For End If Next End Sub Private Sub myRed() On Error Resume Next With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 3 End With End Sub Private Sub myBlue() On Error Resume Next With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 5 End With End Sub (INA) ------- 右くりっくも簡単なんで、、よろぴく(^^)V （反省の夏目雅子似） ---- 反省の色が見えないのですが(¬д¬。) （少し微笑んだ川鮎） ------ ツールバーより、、二回多く実行しなければならない(>_<) （反省、反省の夏目雅子似） ---- [nana7]さん、回答ご苦労様です。削除された書き込みを読みました。 気分を取り直して、また回答、質問をしてくださいね。 （jun53）... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200407/20040715132607.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97013 documents and 608132 words.
訪問者：