住所録を管理できるシステムを作っています。
２番目のシートを検索＆結果表示のシート、３番目～１０番目のシートにはユーザーフォームを使ってデータを入力して蓄積していくシートとしています。
検索はアドバンスフィルターを使っています。
Dim Rng As Range
Dim cRng As Range
Dim sh As Variant
With Sheets(2).Select.Range("A13:L10000").ClearContents
For Each sh In Array(Sheets(3), Sheets(4), Sheets(5), Sheets(6), Sheets(7), Sheets(8), Sheets(9), Sheets(10))
Set cRng = .Range("A65536").End(xlUp).Offset(1)
If cRng.Row < 13 Then
Set cRng = .Range("A13")
End If
sh.Range("A2:L3002").AdvancedFilterAction:=xlFilterCopy, _
CriteriaRange:=.Range("A6:L7"), CopyToRange:=cRng, _
Unique:=False
cRng.Resize(, 17).Cleaｒ
Next sh
End With
End Sub
このマクロでは、ユーザーフォームを使って入力していったデータを検索することはできるのですが、他のエクセルシートからデータをコピー＆ペーストしたり、直接入力をすると検索できません。
何が原因なのでしょうか。教えてください。
住所録を管理できるシステムを作っています。
２番目のシートを検索＆結果表示のシート、３番目～１０番目のシートにはユーザーフォームを使ってデータを入力して蓄積していくシートとしています。
検索はアドバンスフィルターを使っています。
Dim Rng As Range
Dim cRng As Range
Dim sh As Variant
With Sheets(2).Select.Range("A13:L10000").ClearContents
For Each sh In Array(Sheets(3), Sheets(4), Sheets(5), Sheets(6), Sheets(7), Sheets(8), Sheets(9), Sheets(10))
Set cRng = .Range("A65536").End(xlUp).Offset(1)
If cRng.Row < 13 Then
Set cRng = .Range("A13")
End If
sh.Range("A2:L3002").AdvancedFilterAction:=xlFilterCopy, _
CriteriaRange:=.Range("A6:L7"), CopyToRange:=cRng, _
Unique:=False
cRng.Resize(, 17).Cleaｒ
Next sh
End With
End Sub
このマクロでは、ユーザーフォームを使って入力していったデータを検索することはできるのですが、他のエクセルシートからデータをコピー＆ペーストしたり、直接入力をすると検索できません。
何が原因なのでしょうか。教えてください。
ユーザーフォームのテキストボックスを使ってシートにデータを転記しています。
テキストボックスに日付を5/10のような形式で入力し、表示をＨ22.5.10と変換させるようにしています。
Private Sub TextBox1_AfterUpdate()
x = TextBox61Text
TextBox1.Text = Format(x, "ge.m.d")
End Sub
これを転記した時に、そのまま文字列として貼り付けられるため、シリアル値として入りません。
これをシリアル値として入れるためにはどのようにすればいいでしょうか？
BASP21でのFTPサーバーへのアップデートが出来ないです。
BASP21をインストールし、サーバーのユーザー名やパスワードも
あっている状態です。
しかし、アップデートすると
「を送信できませんでした。」
と表示され、アップデートできませんでした。
「FTP接続できませんでした。」は抜けているので、
それ以外が原因だとは思うのですが分かりません。
Visual Basicのサンプルから書きました。
以下の通りです。
初心者のため質問に不備があるかもしれません。
予めお許しください。
Sub FTPサーバーにUP()
Dim FTP, rc As Long, Server As String, User As String, Pass As String
Dim Target As String, Folder As String
Set FTP = CreateObject("basp21.FTP") ''FTPオブジェクト
Server = "ftp.●●●●●●.jp" ''ホストアドレス
User = "●●●●●●" ''ユーザー名
Pass = "●●●●●●●●" ''パスワード
Target = "C:\Users\●●\Desktop.エクセルファイル.xls" ''送信ファイル
If Target = "False" Then Exit Sub
Folder = "/home/●●●●●●/●●●●/●●●/状況"
rc = FTP.Connect(Server, User, Pass)
If rc <> 0 Then
MsgBox "FTP接続できませんでした。", vbCritical
FTP.Close
Exit Sub
End If
rc = FTP.PutFile(Target, Folder)
If rc <> 1 Then
MsgBox Dir(Target) & "を送信できませんでした。", vbCritical
FTP.Close
Exit Sub
End If
MsgBox Dir(Target) & "を送信しました。", vbInformation
FTP.Close
End Sub
