[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セルの書式設定の中にある罫線をツールバー上に』（れ）
セルの書式設定→罫線（下線を選ぶ）→色付きを指定して赤とします。
毎回この順序では時間がかかるので常にツールバー上に出しておきたいのですが・・・。
罫線をクリックしたらすぐに赤色が付くように。
できれば、赤と青２種類簡単に出したいのです。教えてください。
こんにちは。マクロでできますよ。 マクロで「赤い罫線をつけるまで」と「青い罫線をつけるまで」を二つ登録しておいて マクロを実行するボタンをツールバーにだして、それぞれマクロを指定すれば・・・・ (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
今開いてるニコチャンマークを消すためにクリアするってことです。 OK キャンセルの下のクリアを押せば消えます。 もう少しですね、頑張って^^v （川野鮎太郎）
またまた、私の右くりっくは場違いだったようで。。。(@_@) 当然といえば当然なんですけど。。。また、おひまな時にためして みてくださいね。はぁ、、、お恥ずかしい限りです。がく。。 お邪魔しましたぁ。。。ほんと、ごめんなさいねm(__)m もう、すこしです。頑張ってください。 （夏目雅子似）
そんなに肩を落とさずとも(^_^A; 私は、夏目雅子似さんのも大変良いと思いますよ。 ...ρ(．．、)ヾ(^ロ^；)ヨシヨシ （川野鮎太郎）
一つ一つ聞いてしまってホント申し訳ないです。初心者でお恥ずかしいです。
是非お力を〜〜〜〜〜〜〜〜〜。
すべてクリアしたあとで、OKボタンを押したものと思われます。 何も書いてないアイコン（元々ニコチャンだった）があるはずですから、 再度右クリック−ボタンイメージの編集を押してください。 中ほどに色のパレットがあるので赤を選択して、左側の図の中に赤い線を引いてください。 線はマウスを左クリックしたまま左右に動かせば引けます。 好みの線が出来たら、OKを押してください。 次のステップとして、出来たアイコンを右クリック−マクロの登録−初めに作ったマクロを選択して−OK これで、赤線を引くマクロのアイコンが出来たことになります。 （川野鮎太郎）
選択したボタンの編集を押したところクリア、キャンセルとかクリアとかの文字がないのですが・・・・。どこで間違ってるのでしょうか私は。
ニコちゃんマークは移動できた、そのあと選択したボタンの編集をおした。
けど、いろんな操作名はでてましたがクリアがない？？？？
>そのあと選択したボタンの編集をおした そのあとボタンイメージの編集を押してください。 あとは先ほど書いたとおりです。 （川野鮎太郎）
マクロの登録にお好みであった名前を付けたものがあった、のあとから説明します。
1.ツール−ユーザー設定−コマンドタブー分類のマクロを選択 （にこちゃんマーク）ユーザー設定ボタンをドラッグして ツールバーの好きなところに移動します。
※このニコちゃんマークはとりあえずこのままでも使えますし、 変えたいならその方法はあとで説明しますね。
2.ユーザー設定のダイアログは開いたままの状態で、 ツールバーにドラッグしたにこちゃんまーくを右クリックして、 「マクロの登録」を選択すると、さっき登録したマクロのお好みの名前のものが ありますか？それを選択してOKする。
すると、にこちゃんまーくをクリックしたときはそのマクロを自動的に実行するよ、 という意味になります。
登録し終わったら、ユーザー設定のダイアログは閉じて、どこかセルを選択して、にこちゃんマークをクリックしてみましょう。
赤い罫線はひけましたか？
同じように青い罫線がつくようなニコちゃん、マークを設定してOKです。
まずはここまでで最初の目的は達成しそうですよ、頑張って^^(nana7)
※ニコちゃんマークを変えたい場合 にこチャンマークが二つ同じだとどっちがどっちかわからなくなると思うので変更したい、 と言う場合には 1.もう一度、ユーザー設定ダイアログを出した状態で操作します。 2.ダイアログを出したらにこちゃんまーくの上で右クリックします。 3.すでにあるものの中から選択するなら「ボタンイメージの変更」から選択して終わりです。
自分で好きな絵にしたいなら「ボタンイメージの編集」を開きます。 1.にこちゃんまーくがあるとおもうので、「クリア」ボタンをおして絵を消し、 2.色の中から好きなものをえらんで、 （たとえば赤を選んでにこちゃんまーくが元あったところに線をかけば、 赤線を引くようなイメージの絵になってわかりやすいかもしれないですね） で、OKします。
わからないことがあればまた聞いてくださいねー (nana7)
右クリックメニューでなく、ツールバーごとマクロで作成しては如何でしょうか？ 簡単なので、ぜひお試し下さい。
１．ALT + F11キーで、VBEを起動 ２．挿入−標準モジュール ３．標準モジュールのコードウィンドウに以下のコードをコピペ ４．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）
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.