Excel VBA質問スレ Part8

Excel VBA質問スレ Part8 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

450:デフォルトの名無しさん
 08/10/06 19:17:30 
皆様お疲れ様です 
>>448 
それはいい考えだと、本日早速ｾﾙA6にA4を見て予め用意した表から拾って来てくれ頼む！を打ち込んだところ……… 
後ろにもう一枚嫌なｼｰﾄがあってなんと式がｾﾙA6にそのまま表示されてしまうていたらく 
後ろのｼｰﾄとなんかリンク?が貼ってあるかのような得体のしれなさでもう素直にFIND窓で目視で探しました 
件数も15件くらいでしたし 
他の仕事があまりに立て込んでてそのｼｰﾄ間の関係さえ検討できないほどの忙しさなのです 
 
もうﾌﾗﾌﾗです 
皆様も季節柄お体気をつけて！

451:デフォルトの名無しさん
 08/10/06 19:30:13 
えーと、このスレはVBAでプログラミングする人の為のスレだから、 
Excelの使い方はよそで聞いて＆愚痴ってくれ。

452:デフォルトの名無しさん
 08/10/06 20:24:01 
記録ﾏｸﾛで挑戦したんですよ～ 一月100時間3ヶ月をいつか夢見て……

453:434
 08/10/06 20:52:44 
>408,～,452 
作ってみました。長いので２件に分けます。 
' DEBUG　と書かれた行はテストのためにマクロを記録しているブックのアクティブシートに 
処理対象ブックのフルパス、１２桁の番号、ＦＩＮＤで求めた９桁の番号を表示させるためのもので、 
丸々１行消しても動くと思うけど、こちらでは試してません。 
例外処理は入れてません。フォルダーのパスとか検索範囲とかもプログラムで直接指定してますが、 
マクロを記録しているブックに設定できるようにするとメンテがラクですね。 
詳しい方には添削してもらえるとありがたいです。 
Option Explicit 
Dim BK_M As Excel.Workbook, TATE As Long ' DEBUG 
Dim BK_I As Excel.Workbook, BK_O As Excel.Workbook 
Dim SEARCH_PATH As String, FILE_NAME As String 
 
Sub prog_408() 
Set BK_M = ActiveWorkbook    ' DEBUG 
' 参照するだけとなるブックのフルパスやファイル名は適当に変えてください。 
Workbooks.Open Filename:="D:\TEST_FOLDER\PRODUCT\PRODUCT.xls" 
Set BK_I = Workbooks("PRODUCT.xls") 
     
TATE = 3                     ' DEBUG 
' 変更対象となる１０～４０個のブックが記録されているフォルダです。 
' このフォルダにはメールで送られてくるという処理対象だけのブックを置いておくこと。 
SEARCH_PATH = "D:\TEST_FOLDER\" 
FILE_NAME = Dir(SEARCH_PATH & "*.xls", vbNormal) 
Do While FILE_NAME <> Empty ' 繰り返し 
　　Call PROC_1 
Loop 
BK_I.Close 
Set BK_I = Nothing 
Set BK_M = Nothing           ' DEBUG 
End Sub

次ページ