vs2005を使用しています。
配列の宣言の方法はいくつかあるようですが
違いが分かりません。
Dim strDate() As String = New String(1) {}
Dim strDate() As String = New String(1) {"",""}
Dim strDate As String() = {"", ""}
Dim strDate (1) As String
Dim strDate As New ArrayList
も候補のひとつですが、この違いは分かります。
やりたいことは、要素数２の配列を""で初期化したいというものです。
そしてその配列を返す関数を作成しています。
どれも同じように思うのですが、違いがあれば教えていただきたいと思います。
よろしくお願いします。
でもかまわないのですが、
現在WindowsXP上でＶＢ２００５で開発を行っています。
タイトルの通りなのですがPreviewKeyDownイベントが２回発生してしまって困っています。簡易なコードを下記に記します。
Private Sub WebBrowser1_PreviewKeyDown(ByVal sender As Object,ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs)Handles WebBrowser1.PreviewKeyDown
My.Computer.Audio.Play(" My.Computer.Audio.Play("C:\WINDOWS\Media\Windows XP Shutdown.wav", AudioPlayMode.WaitToComplete)
End Sub
というコードを書いたところ、WEBブラウザ上で何かキーを押すと２回、waveファイルが再生されてしまいます。違うwaveファイルでも試しましたが同じでした。ですのでファイルの長さ等は関係ないようです。
原因はpreviewKeyDown以外に考えられないのですが、対処法がわかりません。何かよいアイデアはないでしょうか？
エクセルシートの***にはA4横ページで縦に約20ページが並んでいます。
この***シートを別ブックにコピーしてCallで確認プロシージャーを呼び出して、印刷行の確認を行っています。（本来はそれ以外にも実行していますが、原因を探して行くとこの部分が残りました。）
しかし、この状態で「確認」を実行すると９ページ前後でプログラムが「インデックスが有効範囲にありません」とメッセージが出て、停止しています。停止した状態でデバックを行い（MsgBox ActiveSheet.HPageBreaks(i).Location.Rowの箇所が示されます）、継続実行を行うと後は問題なく実行されます。
各種On Errorを入れて試しましたが、やはり上手く行きません。
しかし、「確認」を単独で実行したり、「移動開始」の.Copyを.Moveに換えると問題なく実行されます。.COPYした時のクリップボード情報の何かが、問題を起こしているのかと思い、WEB見つけたクリップボードをクリアーにするプロシージャーを追加しましたが、やはり上手く行きません。
.Move後に.Copyで戻すという手も考えましたが、もう少しスマートな方法は無いでしょうか？
原因と回避の方法がありましたらご教示をお願い致します。
Sub 移動開始()
Sheets("***").Copy
ActiveWorkbook.Sheets("***").Select
Call 確認
End Sub
Sub 確認()
For i = 1 To ActiveSheet.HPageBreaks.Count
MsgBox ActiveSheet.HPageBreaks(i).Location.Row
Next i
End Sub
エクセルシートの***にはA4横ページで縦に約20ページが並んでいます。
この***シートを別ブックにコピーしてCallで確認プロシージャーを呼び出して、印刷行の確認を行っています。（本来はそれ以外にも実行していますが、原因を探して行くとこの部分が残りました。）
しかし、この状態で「確認」を実行すると９ページ前後でプログラムが「インデックスが有効範囲にありません」とメッセージが出て、停止しています。停止した状態でデバックを行い（MsgBox ActiveSheet.HPageBreaks(i).Location.Rowの箇所が示されます）、継続実行を行うと後は問題なく実行されます。
各種On Errorを入れて試しましたが、やはり上手く行きません。
しかし、「確認」を単独で実行したり、「移動開始」の.Copyを.Moveに換えると問題なく実行されます。.COPYした時のクリップボード情報の何かが、問題を起こしているのかと思い、WEB見つけたクリップボードをクリアーにするプロシージャーを追加しましたが、やはり上手く行きません。
.Move後に.Copyで戻すという手も考えましたが、もう少しスマートな方法は無いでしょうか？
原因と回避の方法がありましたらご教示をお願い致します。
Sub 移動開始()
Sheets("***").Copy
ActiveWorkbook.Sheets("***").Select
Call 確認
End Sub
Sub 確認()
For i = 1 To ActiveSheet.HPageBreaks.Count
MsgBox ActiveSheet.HPageBreaks(i).Location.Row
Next i
End Sub
ACCESSでADO接続でEOFとBOFがともにTUREでうまく動作しません
どなたか回避する方法を教えてください。
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "Q_発生原価合計", cn, adOpenForwardOnly, adLockReadOnly
rs.MoveFirst
Do Until rs.EOF
Debug.Print rs!決算年月, rs!金額の合計, rs!科目CD
rs.MoveNext
Loop
'終了
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
クエリーにはデータは存在します。
お世話になります。
どなたかお助けください。
B7:B11のセルの値で、空ではないものをGlNaviA()に格納して
いき、GlNaviAのUboundを動的に変更しております。
ここで格納された空以外の要素をSub GlNaviに渡しているのですが、
正しく値が渡せていないみたいで、エラーになってしまいます…。
どこかおかしいとこはあるでしょうか。
プログラムは初心者レベルです…。
Option Explicit
Private GlNaviA() As Variant
Public cnt As Integer
Public Sub ABC()
省略…
cnt = 0
For i = 0 To 4
If SH2.Range("B" & i + 7).Value <> "" Then
ReDim Preserve GlNaviA(cnt)
GlNaviA(cnt) = SH2.Range("B" & i + 7).Value
cnt = cnt + 1
End If
Next i
MsgBox GlNaviA(cnt)
省略…
End Sub
Public Sub GlNavi(ByVal f As TextFile)
If UBound(GlNaviA) = 4 Then
f.TextWriteLine GlNaviA(0)
f.TextWriteLine GlNaviA(1)
f.TextWriteLine GlNaviA(2)
f.TextWriteLine GlNaviA(3)
f.TextWriteLine GlNaviA(4)
ElseIf UBound(GlNaviA) = 3 Then
f.TextWriteLine GlNaviA(0)
f.TextWriteLine GlNaviA(1)
f.TextWriteLine GlNaviA(2)
f.TextWriteLine GlNaviA(3)
ElseIf UBound(GlNaviA) = 2 Then
f.TextWriteLine GlNaviA(0)
f.TextWriteLine GlNaviA(1)
f.TextWriteLine GlNaviA(2)
ElseIf UBound(GlNaviA) = 1 Then
f.TextWriteLine GlNaviA(0)
f.TextWriteLine GlNaviA(1)
Else
f.TextWriteLine GlNaviA(0)
End If
End Sub
