エクセル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.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
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
お探しの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
Excel VBA 条件に一致した言葉の下セルに斜線をひきたい
Visual Basic(VBA)
-
6
「B列が日曜の場合」C列に/(斜線)が入るようにならないものでしょうか?
Excel(エクセル)
-
7
罫線の斜線を自動で引くマクロ
Excel(エクセル)
-
8
Excel条件付き書式での罫線の処理について
Excel(エクセル)
-
9
エクセル 結合セル内に空白なら斜線を引くマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
エクセルでセルの中の文字が削...
-
Wordで、表のセルが変なところ...
-
エクセルで知らない間に行がず...
-
Word 表のセル塗りつぶし
-
Word 表のセルを結合せずに文字...
-
Word2013表 右クリック セル内...
-
エクセル2003 セルの結合について
-
複数列のデーターを1行にしたい
-
セルの中にもっとも簡単にチェ...
-
エクセル2010で、結合したセル...
-
ワードの表で中央揃えが出来ない
-
エクセルで複数行を括弧でくく...
-
エクセルで列幅・行の高さが違...
-
WORD2000の表のプロパティが変...
-
エクセルで1列おきのデータのみ...
-
Excelで文字の周りにスペースを...
-
エクセルのセルの幅の調整
-
EXCEL縦書き見出し語の入力方法...
-
excelで複数条件のIF関数につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
エクセルでセルの中の文字が削...
-
あるセルに色を付けた時、別の...
-
エクセルで知らない間に行がず...
-
Wordで、表のセルが変なところ...
-
WORDで表の行を2行に分けたい
-
エクセル 結合したセルの間にセ...
-
Wordでセルに文字を入力すると...
-
エクセル2010で、結合したセル...
-
Excelで写真のような表を作った...
-
ワードで表を作ってセル内で改...
-
エクセルで日付の入ったセルの...
-
ワードの表で中央揃えが出来ない
-
Excelのセル内の文字の頭に半角...
-
Word 表のセル塗りつぶし
-
エクセルで1列おきのデータのみ...
-
Word 表のセルを結合せずに文字...
-
エクセルの一つのセル内に2つの...
-
エクセルで捺印をもらう欄を別...
-
エクセルで複数行を括弧でくく...
おすすめ情報