VB6.0で3つのリストボックスに関連性を持たせたいと思っています。
Private Sub lstBox_Click()
Dim intLstIndex As Integer
intLstIndex = lstA.ListIndex
If (lstA.Selected(intLstIndex)) Then
lstB.Selected(intLstIndex) = True
lstC.Selected(intLstIndex) = True
Else
lstB.Selected(intLstIndex) = False
lstC.Selected(intLstIndex) = False
End If
End Sub
以上のように、どれか一つのリストボックスがクリックされたら他のリストボックスの同じ行がtrueになるようにしています。
しかしこれでは件数が増えた場合、選択された行が揃わなくなる場合があり非常に見栄えが悪くなります。
リストボックスでなくともかまわないのですが、このように三つの項目に関連性をもたせることはできませんでしょうか。
VB6.0で3つのリストボックスに関連性を持たせたいと思っています。
Private Sub lstBox_Click()
Dim intLstIndex As Integer
intLstIndex = lstA.ListIndex
If (lstA.Selected(intLstIndex)) Then
lstB.Selected(intLstIndex) = True
lstC.Selected(intLstIndex) = True
Else
lstB.Selected(intLstIndex) = False
lstC.Selected(intLstIndex) = False
End If
End Sub
以上のように、どれか一つのリストボックスがクリックされたら他のリストボックスの同じ行がtrueになるようにしています。
しかしこれでは件数が増えた場合、選択された行が揃わなくなる場合があり非常に見栄えが悪くなります。
リストボックスでなくともかまわないのですが、このように三つの項目に関連性をもたせることはできませんでしょうか。
マクロ初心者です。(エクセル2003使用)
A列の管理番号が重複していたら、C列に☆をつけるようなマクロを作りたいのですが、うまくできません。
すみませんが、どなたか教えてください。
(Sheet1)
A B C
アカ154-7
アカ226-9 ☆
アカ446-0
アカ675-4 ☆
アカ669-8
アカ226-9 ☆
アカ118-5
アカ675-4 ☆
アカ226-9 ☆
(マクロ)
Sub 重複()
Dim 管理番号 As Variant
Dim motoSht As Worksheets
Dim セル範囲 As Range
With Sheets("Sheet1")
管理番号 = Sheet2.Range("A2").Value
Set セル範囲 = Range("A2:B65536").CurrentRegion.Find(管理番号, , LookAt:=xlWhole)
If 同じ管理番号があったら Then
Range("A").CurrentRegion.Offset(2) = ☆
ElseIf Not セル範囲 Is Nothing Then
MsgBox "管理番号は、重複していません"
End If
End With
End Sub
ご回答よろしくお願いいたします。
VB2008を使っています。
Dim s As String '文字列型
s = WebBrowser1.DocumentText '------ (1)
と
s = WebBrowser1.DocumentText.ToString '------ (2)
は、どちらが正しいのでしょうか?
厳密な違いも知りたいです。
(1)のサンプルも良く見かけますので・・・
あるWebフォームを開発中でOracleDBからのCSVデータ出力にトライしています。
参考書と全く同様の記述をしたのですが画面を実行すると
キーワードはサポートされていません : 'unicode'
というエラーになってしまいます。
恐らくエンコーディングの部分が問題と思われるのですが、なにぶん素人なもので、どう修正すれば進展するのか分かりません。
どなたかご教示頂けないでしょうか。
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim csvString As String = makeCSVData()
Const csvFile As String = "標準原価一覧"
Response.Clear()
Response.ContentType = "application/octet-stream"
Response.AddHeader("Content-Disposition", "attachment; filename=" & ".csv")
Response.BinaryWrite(Encoding.GetEncoding("Shift-JIS").GetBytes(csvString))
Response.End()
End Sub