Excel VBA 質問スレ Part14

Excel VBA 質問スレ Part14at TECH

Excel VBA 質問スレ Part14 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

150:デフォルトの名無しさん
 10/01/31 14:56:13 
印刷専用アプリ起動してそれを操作したいんだろ。だとしたらマクロの記録だけじゃどうやってもだめ。 
お手軽なところではSendKeysとか使ってコントロールする方法があるけど、そのままでは動作があまり安定しない。 
 
こういう時はuwscというフリーウェアおすすめ。 
ウィンドウやボタンを指定して操作できるからうっかりマウスをさわったり、常駐ソフトがポップアップ出してきても大丈夫。

151:デフォルトの名無しさん
 10/01/31 18:15:01 
どなたかお願い致します。 
フォーム上で、textbox(技術検索番号)に入力した番号をシート（全データ）のB列から検索し、シート内の番号と 
同じ行の各種データをフォーム上の対応したtextboxに返すというプログラムを作成しています。 
以下のプログラムは書いてみたんですが、実行すると既に選択されているセルの情報ばかり返ってきます。 
番号と一致したセルをアクティブにすればいいかなと思ったんですが…いまいち分かりません。 
宜しくお願い致します。 
 
Private Sub 技術検索ボタン_Click() 
 Dim sn As String 
 Dim sa As Range   
 '検索番号とエリアの設定 
 sn = 技術検索番号.Value 
 Set sa = Sheets("全データ").Range("B4").End(xlDown) 
 '検索の処理 
 With Sheets("全データ") 
 Set found = Worksheets("全データ").Cells.Find(sn, , xlValues) 
 '見つからない場合の処理 
 If found Is Nothing Then 
  MsgBox ("技術コードが見つかりません。") 
  '見つかった場合の処理 
 Else 
 Me.会社名表示.Value = Cells(ActiveCell.Row, 4) 
 Me.処理機郵便番号表示.Value = Cells(ActiveCell.Row, 5) 
 Me.処理機住所表示.Value = Cells(ActiveCell.Row, 6) 
 Me.電話番号表示.Value = Cells(ActiveCell.Row, 10) 
 Me.メールアドレス表示.Value = Cells(ActiveCell.Row, 9) 
 Me.事業区分表示.Value = Cells(ActiveCell.Row, 11) 
 End If 
End With 
End Sub

次ページ