vb.netでエクセルを操作する
プログラムを作ってて、
Dim xlrange As Excel.Range
Dim xlcells As Excel.Range
xlrange=xlcells(1,1)
if xlrange.value<>"*合計*" then
xlrange.value=""
end if
というプログラムを考えたのですが、
うまくいきません。
if文の条件にxlrange.valueは使えるのでしょうか？
visual studio express 2012 for windows Desktopでpostgres8.3にＩＯするプログラムを作りたいのですが、
そのインターフェイス部分のコードやサンプルを掲載しているＷＥＢサイトを紹介して頂けませんか。
直接回答して頂く事も歓迎します。
追加モジュールをどこかで入手しないといけないとか、事前の必要事項も知りたいです。
環境はVB2012です。
N個の値を持った変数をN個のラベルに表示したいのですが、今のところ Select Case を使用してずらずらと列記しています。とても面倒くさいし可読性も悪いし、ミスもよく起こすので、内容を変更するラベルの指定を変数でできない物かと思いました。
以下のコードの場合、child0.Text、child１.Textというように名前+No.という構成になっています。最終的にはchild(i).Textといったように数値変数で直接指定できればと思います。
過去にはコントロール配列などがあるようでしたが、このバージョンでは今ひとつ分かりません。
Dim child_string(N) As String
Dim cnt_1 As Integer
Dim cnt_2 As Integer
Dim fitness(N) As Integer
For cnt_1 = 0 To 9
Select Case cnt_1
Case 0
Me.child0.Text = child_string(cnt_1)
Me.fitness0.Text = fitness(cnt_1)
Case 1
Me.child1.Text = child_string(cnt_1)
Me.fitness1.Text = fitness(cnt_1)
Case 2
Me.child2.Text = child_string(cnt_1)
Me.fitness2.Text = fitness(cnt_1)
’#####################################
同様の物が100個とか200個とかずらずら並ぶ。
下ではその数をNとする。
’#####################################
Case N
Me.childN.Text = child_string(cnt_1)
Me.fitnessN.Text = fitness(cnt_1)
End Select
Next cnt_1
エクセルVBなのですが、フォームをつくってその中にリストボックスを配置しました。
コマンドボタンで呼び出して、シート内にあるリストから項目を抽出し反復を省略したリストを
フォーム内のリストボックスに作りたいのですが。
Private Sub CommandButton1_Click()
UserForm1.Show
(このあとリスト項目のコード)
End Sub
コマンドボタンをクリックすると、UserForm1が現れますが、リストの中身は空です。一度Unload meでフォームを終わらせて、２回目クリックするとリストの中身が現れます。
一回目のクリックでエラーは出ません。
一回目のクリックでリストを配置したいのですが、何が問題なんでしょうか？
Excel2003 Windows Xp です。
よろしくご教示下さい。
下記のコードは条件を指定してカウントするものなのですがもう一つ条件を増やしたいのです。
下記のコードに加えてD列にある日付を2010/1/1日～2010/12/31までといった感じで指定したいのです。
重要なポイントなんですが指定して算出したものは日付に関係なくすべての
データに算出されているような状態にしたいのです。
例えばデータが20000件あるとしてそのうちの半分が2011年分もう半分が2012年分だとして
日付の条件は2012年の10000件だとすると2011年の条件に入ってない方のデータにも2012年で算出したデータが入力される状態です。
わかりにくいですがお詳しい方ぜひ、助けてください。
よろしくお願いします。
Sub sample()
Dim dic As Object
Dim lastRow As Long
Dim r As Long
Dim key As String
Set dic = CreateObject("Scripting.Dictionary") 'Dictionaryオブジェクト
lastRow = Range("A" & Rows.Count).End(xlUp).Row 'A列最終行
'データ収集
For r = 3 To lastRow '3行目から最終行まで
key = Range("A" & r).Value & Chr(0) & Range("Z" & r).Value 'キー値はA列注目行の値+Z列注目行の値(間にchr(0))
If Not dic.exists(key) Then 'キー値が無ければ
dic.Add key, 1 'キーを追加して、値(個数)を１に
Else '既にキー値があれば
dic(key) = dic(key) + 1 'そのキーの値(個数)+1
End If
Next
'表示
For r = 3 To lastRow '3行目から最終行まで
key = Range("A" & r).Value & Chr(0) & "1" '探す値はA列注目行の値+"1"(間にchr(0))
Range("BW" & r).Value = dic(key) 'BW列にその値(個数)を表示
Next
End Sub
