
エクセル2007についての質問です。
ある条件のときに罫線の右下がり斜線を引きたいのですが、条件付書式ではできません。
マクロでしなくてはいけないことはわかったのですが、それ以上は進めなくて困っています。
セル(U2)に数字を打ち込んだらセル(I10:J11),(I12:J13),(I14:J15),(L10:Q11),(L12:Q13),(L14:Q15)(結合したもの)にIF関数とINDEX関数を組み合わせて他のシートからセル(U2)に対応するデーターを呼び出しています。
セル(I10:J11)に呼び出した数値が10未満ならセル(L10:Q11)に罫線で右下がりの斜線を入れ、10以上なら右下がりの斜線を消すということが行いたいです。(他の2つの組み合わせでも同様)
当方マクロを組んだことが全くなく本を読んで独学しているのですが、至急必要ということになり当方の技術ではなんともなりません。助けてください。
ちなみにセル(I10:J11)に書いてある関数は=VLOOKUP($U$2,別シート!$A:$I,3,0)
セル(L10:Q11)に書いてある関数は=IF(INDEX(別シート!$A$3:$K$400,$U$2,4)=0,"",INDEX(別シート!$A$3:$K$400,$U$2,4))
といったものです。
No.1ベストアンサー
- 回答日時:
I10の内容でL10:Q11に右下がりの罫線を引いたり、消したりなら
下記の内容を、設定するシートのコード欄にコピー&ペーストして確認してください。
マクロの起動は、シート内でセルの移動で実行されます。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("I10").Value < 10 Then
Range("L10:Q11").Borders(xlDiagonalDown).LineStyle = xlContinuous
Else
Range("L10:Q11").Borders(xlDiagonalDown).LineStyle = xlNone
End If
End Sub
早速使わしていただきました!!
完璧に作動いたしました!!
セルを書き換えたところ他の二つでも完璧に作動して、感激の嵐です!!
本当にありがとうございましたm(_ _)m
No.3
- 回答日時:
No.2です!
たびたびごめんなさい。
投稿した後No.1さんのコードを見て勘違いに気づきました。
罫線を入れたいのは セル(L10:Q11) でしたね!
どうも失礼しました。
もう一度コードを載せておきます。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Range("L10").Borders(xlDiagonalDown).LineStyle = xlNone
If IsError(Range("I10")) Then
MsgBox "データがありません"
Exit Sub
ElseIf Range("I10").Value < 10 Then
Range("L10").Borders(xlDiagonalDown).LineStyle = xlContinuous
End If
End Sub 'この行まで
何度もごめんなさいね。m(__)m
No.2
- 回答日時:
こんにちは!
セル(I10:J11)だけの処理で良いわけですよね?
一例です。
画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてデータを入れ替えてみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Range("I10").Borders(xlDiagonalDown).LineStyle = xlNone
If IsError(Range("I10")) Then
MsgBox "データがありません"
Exit Sub
ElseIf Range("I10").Value < 10 Then
Range("I10").Borders(xlDiagonalDown).LineStyle = xlContinuous
End If
End Sub 'この行まで
余計なお世話かもしれませんが・・・
結合されている セル(I10:J11) のセル番地は I10 でOKのはずです。
外していたらごめんなさいね。m(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- Excel(エクセル) vba セルの罫線について教えてください 2 2022/12/28 17:14
- Excel(エクセル) エクセル 関数参照範囲のセルの表示 1 2023/03/16 14:55
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) エクセル2016で、セル全てが消えました。 3 2023/01/03 08:27
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルの質問です。条件によってセルに斜線を引きたいのですが。
その他(OS)
-
Excelの関数について、特定の文字を入れると斜線や線を入れることは出来ますか?
Excel(エクセル)
-
条件付き書式で自動で斜線の罫線を引く
Excel(エクセル)
-
-
4
vlookupで返された値が空白だったら斜線をひく
会計ソフト・業務用ソフト
-
5
「B列が日曜の場合」C列に/(斜線)が入るようにならないものでしょうか?
Excel(エクセル)
-
6
Excel データ入力に応じて自動的に斜線を引きたいのですが
Excel(エクセル)
-
7
罫線の斜線を自動で引くマクロ
Excel(エクセル)
-
8
Excel VBA 条件に一致した言葉の下セルに斜線をひきたい
Visual Basic(VBA)
-
9
エクセルで自動に休日の列に網がけする方法を教えてください
Excel(エクセル)
-
10
Excel(VBA)データ入力に応じて複数範囲のセルの上に1本の斜線を引きたい
Excel(エクセル)
-
11
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
12
あるセルに特定の文字列を打つと、他のセルに決められた文字が自動入力するように
Excel(エクセル)
-
13
excel 空白セルに自動で斜線をひきたいです
Excel(エクセル)
-
14
エクセルの条件付き書式
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
あるセルに色を付けた時、別の...
-
エクセルで知らない間に行がず...
-
エクセル2003 セルの結合について
-
エクセルの一つのセル内に2つの...
-
【VBA】特定の表の最終セルのア...
-
Wordで、表のセルが変なところ...
-
エクセルでセルの中の文字が削...
-
Excelのセル内の文字の頭に半角...
-
Wordの表中の文字を選択した時...
-
エクセル:同じセル内に2つの...
-
エクセル・指定したセルから、...
-
エクセル 結合したセルの間にセ...
-
ワードの表の高さ変更
-
Open Office Calcでセルを無視...
-
WORDで表の中での改ページ
-
エクセルで作った表をさかさま...
-
教えて下さい
-
エクセルで数字減少の番号と罫...
-
金額を罫線をはさんで一度にい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
エクセルでセルの中の文字が削...
-
エクセルで知らない間に行がず...
-
あるセルに色を付けた時、別の...
-
Excelのセル内の文字の頭に半角...
-
Wordで、表のセルが変なところ...
-
エクセルの一つのセル内に2つの...
-
エクセル 結合したセルの間にセ...
-
エクセル2010で、結合したセル...
-
WORDで表の行を2行に分けたい
-
Wordでセルに文字を入力すると...
-
ワードで表を作ってセル内で改...
-
ワードで表の中の文字がセンタ...
-
Wordの表で逆L字型のセルを作成...
-
ピボットで作成した表は、セル...
-
エクセルで複数行を括弧でくく...
-
Word 表のセルを結合せずに文字...
-
エクセルで捺印をもらう欄を別...
-
Wordで天地(上下)が同じ中に...
-
Word 表のセル塗りつぶし
おすすめ情報