下記マクロは、シートAに氏名、郵便番号、住所・・・、と横に住所録を整理していて、列11番目に「対象」と入力されている行を順番にコピーして、シート「送付先一覧」に貼り付けるマクロをコピーしてエクセル2010で使用させていただいてるのですが、職場のエクセル2007では極端にスピードが遅くなります。
エクセル2007では、2010のように早くはならないのでしょうか？
2007を使用してるパソコンが、少し古いからでしょうか？
素人でよくわかりません。
遅くなる理由、また早くする方法があればご教示ください。
Sub 対象抽出()
Dim i, LastRow As Long
LastRow = Cells(Rows.count, 11).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, 11) = "対象" Then
Rows(i).Copy Sheets("送付先一覧").Cells(Rows.count, 1).End(xlUp).Offset(1, 0)
End If
Next i
End Sub
下記マクロは、シートAに氏名、郵便番号、住所・・・、と横に住所録を整理していて、列11番目に「対象」と入力されている行を順番にコピーして、シート「送付先一覧」に貼り付けるマクロをコピーしてエクセル2010で使用させていただいてるのですが、職場のエクセル2007では極端にスピードが遅くなります。
エクセル2007では、2010のように早くはならないのでしょうか？
2007を使用してるパソコンが、少し古いからでしょうか？
素人でよくわかりません。
遅くなる理由、また早くする方法があればご教示ください。
Sub 対象抽出()
Dim i, LastRow As Long
LastRow = Cells(Rows.count, 11).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, 11) = "対象" Then
Rows(i).Copy Sheets("送付先一覧").Cells(Rows.count, 1).End(xlUp).Offset(1, 0)
End If
Next i
End Sub
入力されたセルの値で、フリーフォーム（図形）の色を変えるマクロを作成しました。
（色々の方のお力をお借りしておりますが。。。）
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mShp As String, SCol As Integer
Select Case Target(1).Address(0, 0)
Case "A1": myShp = "フリーフォーム 1"
Case "A8": myShp = "フリーフォーム 8"
Case "B3": myShp = "フリーフォーム 3"
Case Else: Exit Sub
End Select
Select Case Target(1).Value
Case 1: SCol = 10
Case 2: SCol = 13
Case 3: SCol = 12
Case 4: SCol = 11
Case 5: SCol = 15
Case Else: SCol = -1
End Select
With Me.Shapes(myShp).Fill
If SCol = -1 Then
.Visible = msoFalse
Else
.Visible = msoTrue
.ForeColor.SchemeColor = SCol
End If
End With
End Sub
A1,A8,B3に直接値を入力すると色が変化しますので、問題ないのですが、VLOOKUP等で別シートの値を、A1,A8、B3に表示させても色が変わらない事がわかりました。
そこで、このマクロでVLOOKUP等で引っ張って来た場合でも対応出来る様に変更する事は可能でしょうか？
それが出来ない場合は、別シートのセルを直接参照し色を変化出来る様に変更する事が出来ないでしょうか？
これを作成するのに聞いた人間はマクロに詳しい方々ですが、当方は、マクロは素人同然です。
詳しく説明していただければ幸いです。
何卒よろしくお願い致します。
Excel VBAで、「Option Base 1」により配列の添字を1開始にしない場合、セルの値を取り込んだ配列の処理に凄く困らないでしょうか？例えば
Dim A,B
A=Range(Cells(1,1),Cells(100,500)).value
B=Array(1,3,5,7)
とかいう場合、どうしてもAは添字が1開始になり、Bの方は0開始になりますよね？
AとBについて、ループであれこれ処理する場合、開始添字の違いをイチイチ意識しながらコーディングするのは明らかに間違いの元だと思います。こういうのって、どう対処すれば良いのでしょうか？
Excel VBAで、「Option Base 1」により配列の添字を1開始にしない場合、セルの値を取り込んだ配列の処理に凄く困らないでしょうか？例えば
Dim A,B
A=Range(Cells(1,1),Cells(100,500)).value
B=Array(1,3,5,7)
とかいう場合、どうしてもAは添字が1開始になり、Bの方は0開始になりますよね？
AとBについて、ループであれこれ処理する場合、開始添字の違いをイチイチ意識しながらコーディングするのは明らかに間違いの元だと思います。こういうのって、どう対処すれば良いのでしょうか？
入力されたセルの値で、フリーフォーム（図形）の色を変えるマクロを作成しました。
（色々の方のお力をお借りしておりますが。。。）
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mShp As String, SCol As Integer
Select Case Target(1).Address(0, 0)
Case "A1": myShp = "フリーフォーム 1"
Case "A8": myShp = "フリーフォーム 8"
Case "B3": myShp = "フリーフォーム 3"
Case Else: Exit Sub
End Select
Select Case Target(1).Value
Case 1: SCol = 10
Case 2: SCol = 13
Case 3: SCol = 12
Case 4: SCol = 11
Case 5: SCol = 15
Case Else: SCol = -1
End Select
With Me.Shapes(myShp).Fill
If SCol = -1 Then
.Visible = msoFalse
Else
.Visible = msoTrue
.ForeColor.SchemeColor = SCol
End If
End With
End Sub
A1,A8,B3に直接値を入力すると色が変化しますので、問題ないのですが、VLOOKUP等で別シートの値を、A1,A8、B3に表示させても色が変わらない事がわかりました。
そこで、このマクロでVLOOKUP等で引っ張って来た場合でも対応出来る様に変更する事は可能でしょうか？
それが出来ない場合は、別シートのセルを直接参照し色を変化出来る様に変更する事が出来ないでしょうか？
これを作成するのに聞いた人間はマクロに詳しい方々ですが、当方は、マクロは素人同然です。
詳しく説明していただければ幸いです。
何卒よろしくお願い致します。
VbaでA列のみ入力規則でひらがなにしたいのですが、
Sub test()
With Columns(“a”).Validation
.Delete
.IMEMode = xlIMEModeHiragana
End With
End Sub
にすると、実行時エラー1004になります。
.Delete
.Add Type:=xlValidateInputOnly
.IMEMode = xlIMEModeHiragana
にすると、問題ないです。
.Add Type:=xlValidateInputOnly
がどういう意味なのか知りたいのですが
Validationのヘルプを見ても、
Add Typeに関する記載がありません。
なぜ、Add Typeがないとエラーになるのでしょうか？
VbaでA列のみ入力規則でひらがなにしたいのですが、
Sub test()
With Columns(“a”).Validation
.Delete
.IMEMode = xlIMEModeHiragana
End With
End Sub
にすると、実行時エラー1004になります。
.Delete
.Add Type:=xlValidateInputOnly
.IMEMode = xlIMEModeHiragana
にすると、問題ないです。
.Add Type:=xlValidateInputOnly
がどういう意味なのか知りたいのですが
Validationのヘルプを見ても、
Add Typeに関する記載がありません。
なぜ、Add Typeがないとエラーになるのでしょうか？
Excel VBAで単一ブックで複数のウィンドウを開いている時、その片方を閉じるイベントは
Sub Workbook_WindowDeactivate(ByVal Wn As Window)
End Sub
で、良いのでしょうか。
単一ブックで複数のウィンドウを開いている時は、エクセル本体の右上×をクリックすると1つずつしかウィンドウが閉じず、面倒なので、1つ閉じたらエクセル自体（若しくはブック一つ）が閉じるようなプロシージャを組みたいのです。
よろしくお願いします。
InternetExplorerを参照設定し、
Sub aaa()
Dim objIE As InternetExplorer
objIE.
End Sub
とした後に、Navigateを入力すると、自動でnavigateにかわってしまいます。
一覧が表示される時は、大文字です。（画像をご覧ください）
なぜ小文字になってしまうのでしょうか？
参照設定は、HTMLオブジェクトライブラリにもチェックを入れてますが、
それが原因でしょうか？
シート名が、「一覧 (2)」、「一覧 (3)」、・・・・・「一覧 (n)」、と連続する各シートの表データを「一覧」という名前のシートにまとめたいのですが、やり方が分かりません。
For Each を使えば出来るんじゃないかと調べましたが、見付けられませんでした。
シート処理以外は、
Dim CoR As Long, PaR As Long, PaR2 As Long
CoR = Worksheets(???).Cells(Rows.Count, 1).End(xlUp).Row
PaR = Worksheets("一覧").Range(Rows.Count, 1).End(xlUp).Row
PaR2 = CoR + PaR + 1
Worksheets(???).Range(Cells(2, 1), Cells(CoR, 12)).Copy
Worksheets("一覧").Range(Cells(PaR, 1), Cells(PaR2, 12)).PasteSpecial Paste:=xlPasteValues
こんな感じで作っています。
作り方、もしくは参考になるサイトがありましたら、教えていただければありがたいです。
よろしくお願いします。
シート名が、「一覧 (2)」、「一覧 (3)」、・・・・・「一覧 (n)」、と連続する各シートの表データを「一覧」という名前のシートにまとめたいのですが、やり方が分かりません。
For Each を使えば出来るんじゃないかと調べましたが、見付けられませんでした。
シート処理以外は、
Dim CoR As Long, PaR As Long, PaR2 As Long
CoR = Worksheets(???).Cells(Rows.Count, 1).End(xlUp).Row
PaR = Worksheets("一覧").Range(Rows.Count, 1).End(xlUp).Row
PaR2 = CoR + PaR + 1
Worksheets(???).Range(Cells(2, 1), Cells(CoR, 12)).Copy
Worksheets("一覧").Range(Cells(PaR, 1), Cells(PaR2, 12)).PasteSpecial Paste:=xlPasteValues
こんな感じで作っています。
作り方、もしくは参考になるサイトがありましたら、教えていただければありがたいです。
よろしくお願いします。
