エクセル2000です。
ある大きな表のうち、0値を非表示ではなく完全に削除するために以下のようなマクロを書いてみました。
一旦配列に取り込んでいるのは高速化のためです。
これで見た目には目的を達しているのですが、実際には0値が長さ０の文字列に変わっただけで完全な空白にはなっていません。
配列にとりこまず、セルをループして0値のセルをClearすれば解決するのはわかるのですが、ほかにいい方法はないでしょうか？
Sub TEST0値()
Dim myAr
With ActiveSheet
x = .Range("A" & Rows.Count).End(xlUp).Row
myAr = .Range("A4:AP" & x).Value
For i = LBound(myAr, 1) To UBound(myAr, 1)
For n = LBound(myAr, 2) To UBound(myAr, 2)
If myAr(i, n) = 0 Then myAr(i, n) = ""
Next n
Next i
.Range("A4:AP" & x).Value = myAr
End With
End Sub
今日初めて知ったのですが「セルに識別用ラベルを設定する」IDプロパティというのがあるようです。ただVBEの「ヘルプ」を見ただけでは「Web ページとして保存し、HTML 行を Web ページに追加」するもののようで、Web ページ保存になど縁のないわたしにはさっぱりわかりません。でも、面白そうなので試してみると、
Sub ID_Wt()
ActiveSheet.Range("V10").ID = "ABC"
End Sub
で、セルV10に"ABC"が設定され、
Sub ID_Rd()
MsgBox ActiveSheet.Range("V10").ID
End Sub
で、読むことができました。
◎ IDはセルのどこに保存されたのでしょうか？セルのどこを見ても見当たりませんし、そのセルはそれまでのUsedRange外に設定した場合でもUsedRangeは拡張されまれません。とても不思議です。
◎ VBA以外の方法でIDを読むことは出来るのでしょうか？
◎ 一旦終了すると設定したIDは消えてしまうようですがそういうものなのでしょうか？
今日初めて知ったのですが「セルに識別用ラベルを設定する」IDプロパティというのがあるようです。ただVBEの「ヘルプ」を見ただけでは「Web ページとして保存し、HTML 行を Web ページに追加」するもののようで、Web ページ保存になど縁のないわたしにはさっぱりわかりません。でも、面白そうなので試してみると、
Sub ID_Wt()
ActiveSheet.Range("V10").ID = "ABC"
End Sub
で、セルV10に"ABC"が設定され、
Sub ID_Rd()
MsgBox ActiveSheet.Range("V10").ID
End Sub
で、読むことができました。
◎ IDはセルのどこに保存されたのでしょうか？セルのどこを見ても見当たりませんし、そのセルはそれまでのUsedRange外に設定した場合でもUsedRangeは拡張されまれません。とても不思議です。
◎ VBA以外の方法でIDを読むことは出来るのでしょうか？
◎ 一旦終了すると設定したIDは消えてしまうようですがそういうものなのでしょうか？
こにんちは。仕事で使う表をもっと便利にするため、独学でマクロを勉強、作成している者です。
さて、今回、ユーザーフォーム上に5つのテキストボックスを配置して(Textbox1～Textbox5)、Textbox1に入力した内容によってカーソルの移動先を変えるマクロを作成したいのですが、うまくいきません。
私の作成したコードは以下の通りです(今回、質問するにあたって、かなり省略しています)。
Private Sub TextBox1_AfterUpdate()
Select Case TextBox1.Value
Case 1
TextBox1.SetFocus
Case 2
TextBox2.SetFocus
Case 3
TextBox3.SetFocus
Case 4
TextBox4.SetFocus
Case Is >= 5
TextBox5.SetFocus
End Select
End Sub
そこで、いろいろ試したり調べたりしたのですが、どうもイベントプロシージャそのものに対する基本的な認識ができていない気がしてきました。
と言いますのも、上記プログラムを走らせると、1、2を入力した際はタブオーダーに従い？Textbox2へカーソルが移動しますが、3以上の数値を入力すると、4でも5でもTextbox3へ移動します。
何をやってもタブオーダー通りにしか移動しないのならともかく、なぜこのような変な動きになるのか、分かりやすく説明していただくことは可能でしょうか。
また、もちろんどうすれば目的通り動かせるのかも教えていただきたく思います。
もちろん一番の目的はそれなのですが、今後の理解のため、イベントのタイミング等について教えていただければ幸いです。
なお、各イベントの意味については、下記のページを見て理解はできたつもりなのですが・・・。
http://home.att.ne.jp/zeta/gen/excel/c04p30.htm
仮にA1：B10という範囲内で、空白のセルだけを一つずつ順番に選択しようと思い、以下のコードを書いてみました。
実行してみると、範囲内がすべて空白の場合にはA1→B1→A2→B2→・・・と、選択してくれます。
しかし、空白と空白以外のセルが混在していると、最初の空白セルから下に、範囲内の空白セル数分だけ、空白であると否とを問わず選択してしまいます。
（￣□￣；）！！
myRngには空白セルだけを指定され、myRng.Cells.Countでもちゃんと空白セル数がカウントされます。
でも、myRng.Cells(i).Select では正しく選択されないのはなぜでしょうか？
Cells(i)を使用せず、ループを
For Each c In myRng
c.Select
Application.Wait Now + TimeValue("0:00:01")
Next c
で回せば選択できるのに・・・・・。
Sub test01()
Dim x As Long, i As Long, myRng As Range
With ActiveSheet
Set myRng = .Range("A1:B10").SpecialCells(xlCellTypeBlanks)
x = myRng.Cells.Count
For i = 1 To x
myRng.Cells(i).Select
Application.Wait Now + TimeValue("0:00:01")
Next i
End With
Set myRng = Nothing
End Sub
ご教示くださいませ。 (o。_。)oペコッ.
仮にA1：B10という範囲内で、空白のセルだけを一つずつ順番に選択しようと思い、以下のコードを書いてみました。
実行してみると、範囲内がすべて空白の場合にはA1→B1→A2→B2→・・・と、選択してくれます。
しかし、空白と空白以外のセルが混在していると、最初の空白セルから下に、範囲内の空白セル数分だけ、空白であると否とを問わず選択してしまいます。
（￣□￣；）！！
myRngには空白セルだけを指定され、myRng.Cells.Countでもちゃんと空白セル数がカウントされます。
でも、myRng.Cells(i).Select では正しく選択されないのはなぜでしょうか？
Cells(i)を使用せず、ループを
For Each c In myRng
c.Select
Application.Wait Now + TimeValue("0:00:01")
Next c
で回せば選択できるのに・・・・・。
Sub test01()
Dim x As Long, i As Long, myRng As Range
With ActiveSheet
Set myRng = .Range("A1:B10").SpecialCells(xlCellTypeBlanks)
x = myRng.Cells.Count
For i = 1 To x
myRng.Cells(i).Select
Application.Wait Now + TimeValue("0:00:01")
Next i
End With
Set myRng = Nothing
End Sub
ご教示くださいませ。 (o。_。)oペコッ.
こにんちは。仕事で使う表をもっと便利にするため、独学でマクロを勉強、作成している者です。
さて、今回、ユーザーフォーム上に5つのテキストボックスを配置して(Textbox1～Textbox5)、Textbox1に入力した内容によってカーソルの移動先を変えるマクロを作成したいのですが、うまくいきません。
私の作成したコードは以下の通りです(今回、質問するにあたって、かなり省略しています)。
Private Sub TextBox1_AfterUpdate()
Select Case TextBox1.Value
Case 1
TextBox1.SetFocus
Case 2
TextBox2.SetFocus
Case 3
TextBox3.SetFocus
Case 4
TextBox4.SetFocus
Case Is >= 5
TextBox5.SetFocus
End Select
End Sub
そこで、いろいろ試したり調べたりしたのですが、どうもイベントプロシージャそのものに対する基本的な認識ができていない気がしてきました。
と言いますのも、上記プログラムを走らせると、1、2を入力した際はタブオーダーに従い？Textbox2へカーソルが移動しますが、3以上の数値を入力すると、4でも5でもTextbox3へ移動します。
何をやってもタブオーダー通りにしか移動しないのならともかく、なぜこのような変な動きになるのか、分かりやすく説明していただくことは可能でしょうか。
また、もちろんどうすれば目的通り動かせるのかも教えていただきたく思います。
もちろん一番の目的はそれなのですが、今後の理解のため、イベントのタイミング等について教えていただければ幸いです。
なお、各イベントの意味については、下記のページを見て理解はできたつもりなのですが・・・。
http://home.att.ne.jp/zeta/gen/excel/c04p30.htm
エクセル2000です。
A列からE列までの1行から最終行不特定の表があります。
A列はすべて文字列で、B～Gは数値、E列は文字列です。
A列の文字列には重複があります。
この表を別シートにA列の重複がない表として作成したいと思います。
その際、列が重複する場合にはB～G列は合計数値、E列は文字列を結合させます。
Dictionaryオブジェクトを用い、A列データをKey、B～E列データを配列でItemとして下記のコードを書きました。
このコードで目的は達成しました。
質問はKeyが重複する場合、B～E列のデータを配列として取り込んだItemに次のB～E列のデータを加算あるいは結合する方法の簡略化です。
このコードではItem内の配列データを、さらに配列変数のmyArに代入して、要素ごとにForNextで回しましたが、配列変数にわざわざ代入しなくとも出来る方法があるかどうかが知りたいのです。
あるいはまったく別な方法でもかまいません。
ご教示いただければ幸いです。
Sub ItemsTest()
Dim myDic As Object, ns As Worksheet '変数宣言
Dim c As Range, cc As Range, i As Integer
Dim myAr
Set myDic = CreateObject("Scripting.Dictionary") 'myDicを用意
For Each c In Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp)) 'A列の各データについて
If Not myDic.exists(c.Value) Then 'myDicになければ
myDic.Add c.Value, Array(c.Offset(0, 1).Value, c.Offset(0, 2).Value, c.Offset(0, 3).Value, c.Offset(0, 4).Value) '追加しB～E列データを配列でItemに
Else 'myDicにあれば
myAr = myDic(c.Value) 'Itemを配列myArに
For i = LBound(myAr) To UBound(myAr)
myAr(i) = myAr(i) + c.Offset(0, i + 1).Value '配列の要素ごとに加算
Next i
myDic(c.Value) = myAr '配列myArをItemにもどす
End If
Next c '繰り返し
Set ns = Worksheets.Add(After:=ActiveSheet) 'シートを追加
ns.Range("A1").Resize(myDic.Count, 1).Value = Application.Transpose(myDic.Keys) 'A列にKeyデータ転記
For Each cc In ns.Range("A1:A" & myDic.Count)
cc.Offset(0, 1).Resize(, UBound(myAr) + 1).Value = myDic.Item(cc.Value) 'B～E列にItemデータ転記
Next
End Sub
(o。_。)oペコッ
エクセル2000です。
A列からE列までの1行から最終行不特定の表があります。
A列はすべて文字列で、B～Gは数値、E列は文字列です。
A列の文字列には重複があります。
この表を別シートにA列の重複がない表として作成したいと思います。
その際、列が重複する場合にはB～G列は合計数値、E列は文字列を結合させます。
Dictionaryオブジェクトを用い、A列データをKey、B～E列データを配列でItemとして下記のコードを書きました。
このコードで目的は達成しました。
質問はKeyが重複する場合、B～E列のデータを配列として取り込んだItemに次のB～E列のデータを加算あるいは結合する方法の簡略化です。
このコードではItem内の配列データを、さらに配列変数のmyArに代入して、要素ごとにForNextで回しましたが、配列変数にわざわざ代入しなくとも出来る方法があるかどうかが知りたいのです。
あるいはまったく別な方法でもかまいません。
ご教示いただければ幸いです。
Sub ItemsTest()
Dim myDic As Object, ns As Worksheet '変数宣言
Dim c As Range, cc As Range, i As Integer
Dim myAr
Set myDic = CreateObject("Scripting.Dictionary") 'myDicを用意
For Each c In Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp)) 'A列の各データについて
If Not myDic.exists(c.Value) Then 'myDicになければ
myDic.Add c.Value, Array(c.Offset(0, 1).Value, c.Offset(0, 2).Value, c.Offset(0, 3).Value, c.Offset(0, 4).Value) '追加しB～E列データを配列でItemに
Else 'myDicにあれば
myAr = myDic(c.Value) 'Itemを配列myArに
For i = LBound(myAr) To UBound(myAr)
myAr(i) = myAr(i) + c.Offset(0, i + 1).Value '配列の要素ごとに加算
Next i
myDic(c.Value) = myAr '配列myArをItemにもどす
End If
Next c '繰り返し
Set ns = Worksheets.Add(After:=ActiveSheet) 'シートを追加
ns.Range("A1").Resize(myDic.Count, 1).Value = Application.Transpose(myDic.Keys) 'A列にKeyデータ転記
For Each cc In ns.Range("A1:A" & myDic.Count)
cc.Offset(0, 1).Resize(, UBound(myAr) + 1).Value = myDic.Item(cc.Value) 'B～E列にItemデータ転記
Next
End Sub
(o。_。)oペコッ
