エクセルマクロについての質問です。
複数のブック（ここでは０～１９の２０個）のシートそれぞれについて、特定の行を表示／非常時に設定したいです。
表示／非表示の設定を配列Hideにtrue/falseとして設定してあります。
行数はTotal_Rowで、およそ６５０行あります。
こんなコードを書いてみました。
===========================================================================
For nBook = 0 To 19
With Workbooks(nameBook(nBook)).Worksheets(nameSheet(nBook))
For nRow = 0 To Total_Row - 1
.Rows(nRow + 1).Hidden = Hide(nRow + 1)
Next nRow
End With
Next nBook
============================================================================
これで問題なく動くのですが、とても時間がかかります。
ブック数を１として試したところ４５～５５秒ほどかかります。２０ファイルやると
およそ２０分かかります。
これを高速化したいのですが良い方法はないでしょうか。
ScreenUpdatingをfalseにしてもほとんど変化はありませんでした。
１行ずつ設定していますが、まとめて設定できると早いと思います。可能でしょうか。
マクロを使って、「sheet1」のデターを「sheet２」へ抽出するのですが、Webで最適なものがあったので、その指示通りにやりました。その例題は再現できました。しかし、それを自分に合うように設定し直すとどうしてもできません。そこで気づいたのは、「No. 月日 項目名 収入 支出 摘要 購入店名」の各セルが何らかの関係があるのではと思ったのです。この項目を変えたて自分独自のものにしたいのですが、変えたり消してしまうと抽出できません。どこをどのようにしたらよいのか教えて頂けませんか。
Sub Macro2()
Dim myRow1 As Long, myRow2 As Long
myRow1 = Sheets("Sheet1").Range("B65536").End(xlUp).Row
myRow2 = Sheets("Sheet2").Range("B65536").End(xlUp).Row
If myRow2 >= 5 Then
Sheets("Sheet2").Range("B5:H" & myRow2).ClearContents
End If
Sheets("Sheet1").Range("B2:H" & myRow1).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B2:B3"), CopyToRange:=Range("B5"), Unique:=False
End Sub
マクロを使って、「sheet1」のデターを「sheet２」へ抽出するのですが、Webで最適なものがあったので、その指示通りにやりました。その例題は再現できました。しかし、それを自分に合うように設定し直すとどうしてもできません。そこで気づいたのは、「No. 月日 項目名 収入 支出 摘要 購入店名」の各セルが何らかの関係があるのではと思ったのです。この項目を変えたて自分独自のものにしたいのですが、変えたり消してしまうと抽出できません。どこをどのようにしたらよいのか教えて頂けませんか。
Sub Macro2()
Dim myRow1 As Long, myRow2 As Long
myRow1 = Sheets("Sheet1").Range("B65536").End(xlUp).Row
myRow2 = Sheets("Sheet2").Range("B65536").End(xlUp).Row
If myRow2 >= 5 Then
Sheets("Sheet2").Range("B5:H" & myRow2).ClearContents
End If
Sheets("Sheet1").Range("B2:H" & myRow1).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B2:B3"), CopyToRange:=Range("B5"), Unique:=False
End Sub
Excel 2002でvbaを用いて、下記の表に対してマクロを組もうとしています。
例）
101 a 500円
129 b 600円
120 b 1000円
120 a 700円
138 b 900円
これをオートフィルを用いて、B列のbだけを抽出するとします。
その状態で表に罫線を引きたいのです。
罫線は、表の中の縦横線は点線、周囲だけ実線というものにしたいです。
そこで下のようなマクロを組んでみました。
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Borders(xlInsideHorizontal)
.Color = vbBlack
.LineStyle = xlDash
.Weight = xlHairline
End With '横点線
With Selection.Borders(xlInsideVertical)
.Color = vbBlack
.LineStyle = xlDash
.Weight = xlHairline
End With '縦点線
With Selection.Borders(xlEdgeBottom)
.Color = vbBlack
.LineStyle = xlContinuous
.Weight = xlThin
End With '周囲の下線
（→ここから他３方向への線もひきますが省略します）
こうすると、オートフィル化する前は理想通りの形になったのですが、オートフィル化するとうまくいきません。
120 b 600円
120 b 1000円
（↑↓この間にaセルが入っているため、↑の線が実線となってしまいます）
138 b 900円
オートフィル化した後でも、どうにかならないものなのでしょうか？
また、この表の行数やa、bの個数は日によって異なるため、最終行を指定するということも出来そうにありません。
また、今A列に101、10a…などといった数字が並んでおりますが、この数字が変化する境目のところにのみ太線を引く、ということは出来ますか？
例）
120 b 600円
120 b 1000円
（↑↓この間に太線を挿入したい）
138 b 900円
太線はA列からC列まで引きたいです。
こういったこともvbaでどうにかなるものなのでしょうか？
どなたかお教え頂けると非常に助かります。宜しくお願い致します。
Excel 2002でvbaを用いて、下記の表に対してマクロを組もうとしています。
例）
101 a 500円
129 b 600円
120 b 1000円
120 a 700円
138 b 900円
これをオートフィルを用いて、B列のbだけを抽出するとします。
その状態で表に罫線を引きたいのです。
罫線は、表の中の縦横線は点線、周囲だけ実線というものにしたいです。
そこで下のようなマクロを組んでみました。
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Borders(xlInsideHorizontal)
.Color = vbBlack
.LineStyle = xlDash
.Weight = xlHairline
End With '横点線
With Selection.Borders(xlInsideVertical)
.Color = vbBlack
.LineStyle = xlDash
.Weight = xlHairline
End With '縦点線
With Selection.Borders(xlEdgeBottom)
.Color = vbBlack
.LineStyle = xlContinuous
.Weight = xlThin
End With '周囲の下線
（→ここから他３方向への線もひきますが省略します）
こうすると、オートフィル化する前は理想通りの形になったのですが、オートフィル化するとうまくいきません。
120 b 600円
120 b 1000円
（↑↓この間にaセルが入っているため、↑の線が実線となってしまいます）
138 b 900円
オートフィル化した後でも、どうにかならないものなのでしょうか？
また、この表の行数やa、bの個数は日によって異なるため、最終行を指定するということも出来そうにありません。
また、今A列に101、10a…などといった数字が並んでおりますが、この数字が変化する境目のところにのみ太線を引く、ということは出来ますか？
例）
120 b 600円
120 b 1000円
（↑↓この間に太線を挿入したい）
138 b 900円
太線はA列からC列まで引きたいです。
こういったこともvbaでどうにかなるものなのでしょうか？
どなたかお教え頂けると非常に助かります。宜しくお願い致します。
エクセルVBAで最終列に入力されている値の表示方法について教えてください。
最終行については表示できるのですが、最終列に入力されているものの表示がうまくいきません。
A列の最終行の値をセル”D1”に表示するについては
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
r = Cells(Rows.Count, 1).End(xlUp).Row
Range("D1").Value = Cells(r, 1).Value
End Sub
でうまくいきました。
最終行、例えば3列目の10行目に”111”と入力されているときにセル”D1”に”111”と表示するようにはどうしたらよいのでしょうか。
どなたがご指南ください宜しくお願いします。
エクセルVBAで最終列に入力されている値の表示方法について教えてください。
最終行については表示できるのですが、最終列に入力されているものの表示がうまくいきません。
A列の最終行の値をセル”D1”に表示するについては
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
r = Cells(Rows.Count, 1).End(xlUp).Row
Range("D1").Value = Cells(r, 1).Value
End Sub
でうまくいきました。
最終行、例えば3列目の10行目に”111”と入力されているときにセル”D1”に”111”と表示するようにはどうしたらよいのでしょうか。
どなたがご指南ください宜しくお願いします。
エクセルVBAで最終列に入力されている値の表示方法について教えてください。
最終行については表示できるのですが、最終列に入力されているものの表示がうまくいきません。
A列の最終行の値をセル”D1”に表示するについては
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
r = Cells(Rows.Count, 1).End(xlUp).Row
Range("D1").Value = Cells(r, 1).Value
End Sub
でうまくいきました。
最終行、例えば3列目の10行目に”111”と入力されているときにセル”D1”に”111”と表示するようにはどうしたらよいのでしょうか。
どなたがご指南ください宜しくお願いします。
エクセルVBAで最終列に入力されている値の表示方法について教えてください。
最終行については表示できるのですが、最終列に入力されているものの表示がうまくいきません。
A列の最終行の値をセル”D1”に表示するについては
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
r = Cells(Rows.Count, 1).End(xlUp).Row
Range("D1").Value = Cells(r, 1).Value
End Sub
でうまくいきました。
最終行、例えば3列目の10行目に”111”と入力されているときにセル”D1”に”111”と表示するようにはどうしたらよいのでしょうか。
どなたがご指南ください宜しくお願いします。
エクセルVBAで最終列に入力されている値の表示方法について教えてください。
最終行については表示できるのですが、最終列に入力されているものの表示がうまくいきません。
A列の最終行の値をセル”D1”に表示するについては
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
r = Cells(Rows.Count, 1).End(xlUp).Row
Range("D1").Value = Cells(r, 1).Value
End Sub
でうまくいきました。
最終行、例えば3列目の10行目に”111”と入力されているときにセル”D1”に”111”と表示するようにはどうしたらよいのでしょうか。
どなたがご指南ください宜しくお願いします。
