表題 コマンドボタンを押し自分自身のオブジェクト名を取得したいと考えております。
下記、コードにて試したところエラー2023が表示され所望の動作が確認できません。どなたかお分かりの方がいらっしゃいましたらご教授いただければ幸いです。
Private Sub CommandButton1_Click()
Select Case TypeName(Application.Caller)
Case "Range"
v = Application.Caller.Address
Case "String"
v = Application.Caller
Case "Error"
v = "エラー"
Case Else
v = "不明です"
End Select
MsgBox "Visual Basic を呼び出した方法 = " & v
End sub
A列に英文データがあります。前から数えて指定の語（１語または２語）だけを（ ）に置き換えたいのです。
A列
English and French are spoken in Canada.
B列 4
C列
English and French ( ) spoken in Canada.
D列 are
E列 4,5
F列
English and French ( ) ( ) in Canada.
G列 are spoken
１つ１つ手作業で変換していたのですが、関数とかでうまく処理できる方法があるでしょうか。よろしくお願いします。
お世話になります
現在ADOにてEXCEL側からAccessDBにアクセスし
値を取得しているのですが
現在下方向に貼り付けしているのですが
横方向に貼り付けさせる方法はありますか？
下記参考（現状VBAです）
現状：日付で絞込みをしています
日付け絞込みをしてヒットしたものに対して下方向に貼り付けています
それを横方向に貼り付けさせたいのです
Private Sub CommandButton1_Click()
Dim myConn As ADODB.Connection
Dim myRs As ADODB.Recordset
Dim mySQL As String
Dim myConstr As String
Dim myDBFName As String
Dim myPswd As String
Dim tableName As String
Dim orderDate As String
Dim shipDate As String
orderDate = Format(DateValue(DTPicker1.Value), "mm/dd/yyyy")
shipDate = Format(DateValue(DTPicker2.Value), "mm/dd/yyyy")
myDBFName = "Accessパス"
myPswd = ""
myConstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& myDBFName & ";Jet OLEDB:Database Password=" & myPswd & ";"
mySQL =SQL文
Set myConn = New ADODB.Connection
myConn.Open myConstr
Set myRs = New ADODB.Recordset
myRs.Open mySQL, myConn
Worksheets("シート名").Range("開始セル名").CopyFromRecordset myRs
myRs.Close
Set myRs = Nothing
myConn.Close
Set myConn = Nothing
Unload Me
End Sub
わかる方ご教授願います
A列に英文データがあります。前から数えて指定の語（１語または２語）だけを（ ）に置き換えたいのです。
A列
English and French are spoken in Canada.
B列 4
C列
English and French ( ) spoken in Canada.
D列 are
E列 4,5
F列
English and French ( ) ( ) in Canada.
G列 are spoken
１つ１つ手作業で変換していたのですが、関数とかでうまく処理できる方法があるでしょうか。よろしくお願いします。
A列に英文データがあります。前から数えて指定の語（１語または２語）だけを（ ）に置き換えたいのです。
A列
English and French are spoken in Canada.
B列 4
C列
English and French ( ) spoken in Canada.
D列 are
E列 4,5
F列
English and French ( ) ( ) in Canada.
G列 are spoken
１つ１つ手作業で変換していたのですが、関数とかでうまく処理できる方法があるでしょうか。よろしくお願いします。
vbaにてヘッダー＆フッダーを設定したいと思っています。
With ActiveSheet.PageSetup
・・・・・
・・・・・
End With
みたいな感じで設定したいと思っているのですが、
ページが複数になった時、ヘッダーは1枚目だけ、
フッダーは2枚目だけに表示するようにしたいのですが、
可能でしょうか？
EXCEL2000です。
宜しくお願いします。
お世話になります
現在ADOにてEXCEL側からAccessDBにアクセスし
値を取得しているのですが
現在下方向に貼り付けしているのですが
横方向に貼り付けさせる方法はありますか？
下記参考（現状VBAです）
現状：日付で絞込みをしています
日付け絞込みをしてヒットしたものに対して下方向に貼り付けています
それを横方向に貼り付けさせたいのです
Private Sub CommandButton1_Click()
Dim myConn As ADODB.Connection
Dim myRs As ADODB.Recordset
Dim mySQL As String
Dim myConstr As String
Dim myDBFName As String
Dim myPswd As String
Dim tableName As String
Dim orderDate As String
Dim shipDate As String
orderDate = Format(DateValue(DTPicker1.Value), "mm/dd/yyyy")
shipDate = Format(DateValue(DTPicker2.Value), "mm/dd/yyyy")
myDBFName = "Accessパス"
myPswd = ""
myConstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& myDBFName & ";Jet OLEDB:Database Password=" & myPswd & ";"
mySQL =SQL文
Set myConn = New ADODB.Connection
myConn.Open myConstr
Set myRs = New ADODB.Recordset
myRs.Open mySQL, myConn
Worksheets("シート名").Range("開始セル名").CopyFromRecordset myRs
myRs.Close
Set myRs = Nothing
myConn.Close
Set myConn = Nothing
Unload Me
End Sub
わかる方ご教授願います
名前を入力してその人のデータを抽出したい。パスワードが空欄のときメッセージを表示させコントロールソースを変更したいのですが、できません。どなたかアドバイスお願いします
If (Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号].Value = "") Then
↑これが認識しません。「NULL」でやってもだめです。
以下がソースです。
Private Sub cmd検索_Click()
Forms![名前検索]![SUB_名前検索].Requery
If DCount("[使用者氏名]", "q_リンク名前抽出") = 0 Then
MsgBox "データがありませんよ"
Me.txt名前入力.SetFocus
End If
If (Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号].Value = "") Then
MsgBox "から"
Forms![名前検索]![SUB_名前検索]![職員アカウント.職員番号].ControlSource = "入力データフォーマットV8新人.職員番号"
End If
お世話になります
現在ADOにてEXCEL側からAccessDBにアクセスし
値を取得しているのですが
現在下方向に貼り付けしているのですが
横方向に貼り付けさせる方法はありますか？
下記参考（現状VBAです）
現状：日付で絞込みをしています
日付け絞込みをしてヒットしたものに対して下方向に貼り付けています
それを横方向に貼り付けさせたいのです
Private Sub CommandButton1_Click()
Dim myConn As ADODB.Connection
Dim myRs As ADODB.Recordset
Dim mySQL As String
Dim myConstr As String
Dim myDBFName As String
Dim myPswd As String
Dim tableName As String
Dim orderDate As String
Dim shipDate As String
orderDate = Format(DateValue(DTPicker1.Value), "mm/dd/yyyy")
shipDate = Format(DateValue(DTPicker2.Value), "mm/dd/yyyy")
myDBFName = "Accessパス"
myPswd = ""
myConstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& myDBFName & ";Jet OLEDB:Database Password=" & myPswd & ";"
mySQL =SQL文
Set myConn = New ADODB.Connection
myConn.Open myConstr
Set myRs = New ADODB.Recordset
myRs.Open mySQL, myConn
Worksheets("シート名").Range("開始セル名").CopyFromRecordset myRs
myRs.Close
Set myRs = Nothing
myConn.Close
Set myConn = Nothing
Unload Me
End Sub
わかる方ご教授願います
お世話になります
現在ADOにてEXCEL側からAccessDBにアクセスし
値を取得しているのですが
現在下方向に貼り付けしているのですが
横方向に貼り付けさせる方法はありますか？
下記参考（現状VBAです）
現状：日付で絞込みをしています
日付け絞込みをしてヒットしたものに対して下方向に貼り付けています
それを横方向に貼り付けさせたいのです
Private Sub CommandButton1_Click()
Dim myConn As ADODB.Connection
Dim myRs As ADODB.Recordset
Dim mySQL As String
Dim myConstr As String
Dim myDBFName As String
Dim myPswd As String
Dim tableName As String
Dim orderDate As String
Dim shipDate As String
orderDate = Format(DateValue(DTPicker1.Value), "mm/dd/yyyy")
shipDate = Format(DateValue(DTPicker2.Value), "mm/dd/yyyy")
myDBFName = "Accessパス"
myPswd = ""
myConstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& myDBFName & ";Jet OLEDB:Database Password=" & myPswd & ";"
mySQL =SQL文
Set myConn = New ADODB.Connection
myConn.Open myConstr
Set myRs = New ADODB.Recordset
myRs.Open mySQL, myConn
Worksheets("シート名").Range("開始セル名").CopyFromRecordset myRs
myRs.Close
Set myRs = Nothing
myConn.Close
Set myConn = Nothing
Unload Me
End Sub
わかる方ご教授願います
お世話になります
現在ADOにてEXCEL側からAccessDBにアクセスし
値を取得しているのですが
現在下方向に貼り付けしているのですが
横方向に貼り付けさせる方法はありますか？
下記参考（現状VBAです）
現状：日付で絞込みをしています
日付け絞込みをしてヒットしたものに対して下方向に貼り付けています
それを横方向に貼り付けさせたいのです
Private Sub CommandButton1_Click()
Dim myConn As ADODB.Connection
Dim myRs As ADODB.Recordset
Dim mySQL As String
Dim myConstr As String
Dim myDBFName As String
Dim myPswd As String
Dim tableName As String
Dim orderDate As String
Dim shipDate As String
orderDate = Format(DateValue(DTPicker1.Value), "mm/dd/yyyy")
shipDate = Format(DateValue(DTPicker2.Value), "mm/dd/yyyy")
myDBFName = "Accessパス"
myPswd = ""
myConstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& myDBFName & ";Jet OLEDB:Database Password=" & myPswd & ";"
mySQL =SQL文
Set myConn = New ADODB.Connection
myConn.Open myConstr
Set myRs = New ADODB.Recordset
myRs.Open mySQL, myConn
Worksheets("シート名").Range("開始セル名").CopyFromRecordset myRs
myRs.Close
Set myRs = Nothing
myConn.Close
Set myConn = Nothing
Unload Me
End Sub
わかる方ご教授願います
お世話になります
現在ADOにてEXCEL側からAccessDBにアクセスし
値を取得しているのですが
現在下方向に貼り付けしているのですが
横方向に貼り付けさせる方法はありますか？
下記参考（現状VBAです）
現状：日付で絞込みをしています
日付け絞込みをしてヒットしたものに対して下方向に貼り付けています
それを横方向に貼り付けさせたいのです
Private Sub CommandButton1_Click()
Dim myConn As ADODB.Connection
Dim myRs As ADODB.Recordset
Dim mySQL As String
Dim myConstr As String
Dim myDBFName As String
Dim myPswd As String
Dim tableName As String
Dim orderDate As String
Dim shipDate As String
orderDate = Format(DateValue(DTPicker1.Value), "mm/dd/yyyy")
shipDate = Format(DateValue(DTPicker2.Value), "mm/dd/yyyy")
myDBFName = "Accessパス"
myPswd = ""
myConstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& myDBFName & ";Jet OLEDB:Database Password=" & myPswd & ";"
mySQL =SQL文
Set myConn = New ADODB.Connection
myConn.Open myConstr
Set myRs = New ADODB.Recordset
myRs.Open mySQL, myConn
Worksheets("シート名").Range("開始セル名").CopyFromRecordset myRs
myRs.Close
Set myRs = Nothing
myConn.Close
Set myConn = Nothing
Unload Me
End Sub
わかる方ご教授願います
