No.4ベストアンサー
- 回答日時:
10×30ぐらいの範囲を仮にA1:AD10とした場合、セルの値が「休」、「土」の場合に太枠で囲みます。
Sub test01()
For Each c In Range("A1:AD10")
If c.Value = "休" Or c.Value = "土" Then
With c.Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End If
Next
End Sub
No.6
- 回答日時:
こんにちは
自分の為に書いたラフなものを自己満足で載せるものです。
不完全で穴だらけですが、ヒントにでもなれば、、、
(XL2000で動作確認済)
' 標準モジュール、、、ActiveSheet専用
Sub TEST()
Const S_Hanni As String = "A1:J30" ' 対象範囲指定
Const S_Retu As String = "HA" ' 作業列の先頭列を指定
Dim ret, rB As Range, i As Integer
ret = InputBox("罫線で囲む検索文字列を"",""区切りで指定して" _
& vbLf & " OK で実行します" _
& vbLf & vbLf & "例) 休" & vbLf & " 休,土" _
& vbLf & " 休,土,日", "検索 罫線", "休,土")
If ret = "" Then
MsgBox "検索文字列が指定されませんでした"
Exit Sub
End If
ret = Split(ret, ",")
With Range(S_Hanni)
Set rB = Columns(S_Retu) _
.Resize(.Rows.Count, .Columns.Count)
.Borders.LineStyle = xlLineStyleNone
.Copy rB
With rB
For i = 0 To UBound(ret)
If ret(i) <> "" Then _
.Replace What:=ret(i), Replacement:="#VALUE!" _
, LookAt:=xlWhole, SearchOrder:=xlByRows _
, MatchCase:=False
Next i
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 16) _
.BorderAround LineStyle:=xlContinuous _
, Weight:=xlThick, ColorIndex:=xlAutomatic
On Error GoTo 0
.Copy
End With
.PasteSpecial xlPasteFormats
rB.Delete xlToLeft
End With
End Sub
No.5
- 回答日時:
こんなのはマクロの記録でほぼできるではないですか。
丸投げする前にマクロの記録をとって勉強すること。
Sub Macro3()
For Each cl In Range("A1:c10")
If cl > 10 Then
cl.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End If
Next
End Sub
ーー
(ForEach)
For Each cl In Range("A1:c10")
対の最後のNext
(条件判定部)
If cl > 10 Then
対の最後のEndIF
(対象セル範囲)
Range("A1:c10")
以外はマクロの記録です。
条件部分はIFステートメントで思い通りつくること。
上記は20以上の例。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) vba セルの罫線について教えてください 2 2022/12/28 17:14
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルでデータがある部分だけ罫線で囲いたいです。
Excel(エクセル)
-
Excel VBA 条件に一致した言葉の下セルに斜線をひきたい
Visual Basic(VBA)
-
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
-
4
VBA 「文字が入っていたら、上下に線を引く」
Excel(エクセル)
-
5
Excelの関数について、特定の文字を入れると斜線や線を入れることは出来ますか?
Excel(エクセル)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
8
Excel VBA 空白セル以外のセルを罫線で囲む
その他(Microsoft Office)
-
9
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
10
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
11
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
12
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
13
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
14
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
15
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
16
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
17
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
18
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
19
罫線の斜線を自動で引くマクロ
Excel(エクセル)
-
20
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
尿検査前日に自慰行為した時の...
-
白血球が多いとどんな心配があ...
-
尿検査の前日は自慰控えたほう...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
勃起する時って痛いんですか? ...
-
EXCELで条件付き書式で空白セル...
-
腕を見たら黄色くなってる部分...
-
EXCELで式からグラフを描くには?
-
変な話しになります。尿検査で...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
-
Excelで""で囲む方法
-
ある範囲のセルから任意の値を...
-
2つの数値のうち、数値が小さい...
-
精子が黄色?
-
エクセルでエラーが出て困って...
-
納豆食べた後の尿の納豆臭は何故?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報