お世話になります。
どなたかお助けください。
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
お世話になります。
どなたかお助けください。
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
お世話になります。
どなたかお助けください。
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
お世話になっています。
カレントフォルダにあるExcelファイルを開くには次の関数を作成して実現しています。
Function ExWorkbooksOpen(myOpenXlsName As Variant)
Dim myWb As Workbook
Dim totoFullName As Variant
Set myWb = ActiveWorkbook
totoFullName = myWb.Path & "\" & myOpenXlsName
Workbooks.Open Filename:=totoFullName
Set myWb = Nothing
End Function
この方法ですと、別のフォルダにあるExellファイルを開く事はできません。
そこで、ショートカットファイルをカレントフォルダへ置いて開く事を考えていますが、どの様にオープンしていいのか分かりません。
アドバイスをよろしくお願いします。
VBAに関していくつか質問させて下さい。
・ファンクションプロシージャでは
Function Fun(x)
・・・
End Function
という形で関数を定義しますが、この関数の中でこれとは別の関数を定義して使いたい場合にはどうすれば良いのでしょうか？
Function Fun(x)
・・・
Function Fun2(x)
・・・
End Function
・・・
End Function
みたいに入れ子状にすれば良いのでしょうか？
・Range()を使って、
Range(A1)*Range(A2)+Range(B1)*Range(B2)+・・・
ということは出来ないのでしょうか？こういうのはCellsを使うしかないのでしょうか？
・Int()で整数であるということ定義出来ますが、浮動小数点であるdouble()というのが効かないのはなぜなのでしょうか？
Dim as doubleだと効くのですが。
何卒よろしくお願い致します。
VBAに関していくつか質問させて下さい。
・ファンクションプロシージャでは
Function Fun(x)
・・・
End Function
という形で関数を定義しますが、この関数の中でこれとは別の関数を定義して使いたい場合にはどうすれば良いのでしょうか？
Function Fun(x)
・・・
Function Fun2(x)
・・・
End Function
・・・
End Function
みたいに入れ子状にすれば良いのでしょうか？
・Range()を使って、
Range(A1)*Range(A2)+Range(B1)*Range(B2)+・・・
ということは出来ないのでしょうか？こういうのはCellsを使うしかないのでしょうか？
・Int()で整数であるということ定義出来ますが、浮動小数点であるdouble()というのが効かないのはなぜなのでしょうか？
Dim as doubleだと効くのですが。
何卒よろしくお願い致します。
お世話になっています。
カレントフォルダにあるExcelファイルを開くには次の関数を作成して実現しています。
Function ExWorkbooksOpen(myOpenXlsName As Variant)
Dim myWb As Workbook
Dim totoFullName As Variant
Set myWb = ActiveWorkbook
totoFullName = myWb.Path & "\" & myOpenXlsName
Workbooks.Open Filename:=totoFullName
Set myWb = Nothing
End Function
この方法ですと、別のフォルダにあるExellファイルを開く事はできません。
そこで、ショートカットファイルをカレントフォルダへ置いて開く事を考えていますが、どの様にオープンしていいのか分かりません。
アドバイスをよろしくお願いします。
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
クエリーにはデータは存在します。
visual basicを使ってゲームを作成しております。
あるサイトを見てmidiの再生をやってみようと下記のコードを入力しました。
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
Sub MCI_Test()
Dim P As String, filename As String
filename = "sample.mid"
P = """" & ActiveWorkbook.Path & "\" & filename & """"
Call mciSendString("open " & P & " alias sample", vbNullString, 0, 0)
DoEvents
Call mciSendString("play sample from 0", vbNullString, 0, 0)
Call Sleep(10000)
Call mciSendString("close sample", vbNullString, 0, 0)
End Sub
このコードでfilenameの部分を変更しwavファイルのsample.wavやMP3ファイルのsample.mp3は再生する事ができました。しかし、midiファイルはsample.midを同じフォルダ内に入れているにも関わらず全く音が鳴りません。どこが間違っているのでしょうか。教えてください。宜しくお願い致します。
