エクセル(Excel)&ワード(Word)質問掲示板

より見やすく使いやすいエクセル掲示板を目指し、新たにエクセルの質問掲示板を開設いたしました。 これに伴い、当サイトでは今後、新規投稿はできなくなります。(閲覧は当面可能です。)
今後は新掲示板をご利用いただきますよう宜しくお願い致します。今後ともよろしくお願い致します。
○新掲示板
エクセル(Excel)解決掲示板

エクセル・ワードの基本操作に関する質問や関数やマクロの使い方などエクセルとワードに関する質問掲示板。
Welcome Guest 
メインメニュー
ログイン
ユーザー名:

パスワード:


パスワード紛失

文行仕訳

このトピックの投稿一覧へ

なし 文行仕訳

msg# 1
depth:
0
前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2010-4-29 10:52
ゲスト    投稿数: 0
Sub 処理()

'☆変数宣言開始--------------------------------------------------------------------------------------------------------------------------

'値変数宣言
Dim i As Integer
Dim t As Integer
Dim CNT As Integer
Dim Minimum_Value As Integer
Dim Maximum_Value As Integer
Dim FREE_NUMBER As Integer

'パス変数宣言
Dim MAIN_PATH As String

'ファイル変数宣言
Dim MAIN_FILE As String
Dim T_TXT As String
Dim Filename As String

'オブジェクト変数宣言
Dim FSO As Object
Dim START_CELL As Object

'配列変数宣言
Dim HI_BUN() As String

'☆変数宣言開始--------------------------------------------------------------------------------------------------------------------------

'☆変数設定開始--------------------------------------------------------------------------------------------------------------------------

'値変数設定
Minimum_Value = 1
Maximum_Value = 4
Half_Vlue = Maximum_Value / 2

'日付変数設定
YYYY = CStr(Format(Date, "yyyy"))
MM = CStr(Format(Date, "mm"))
DD = CStr(Format(Date, "dd"))
YMD = YYYY & MM & DD

'パス変数設定
MAIN_PATH = ThisWorkbook.Path

'ファイル変数設定
MAIN_FILE = "運用日報.xlsm"
T_TXT = "test.txt"
Filename = MAIN_PATH & "\" & T_TXT

'オブジェクト変数設定
Set FSO = CreateObject("Scripting.FileSystemObject")
Set HI_START_CELL1 = Range("P64")

'配列変数設定
ReDim HI_BUN(Minimum_Value To Maximum_Value)

'☆変数設定終了--------------------------------------------------------------------------------------------------------------------------

'処理
CNT = 0
i = 1
FREE_NUMBER = FreeFile

Open Filename For Input As #FREE_NUMBER
Do Until EOF(FREE_NUMBER)
Line Input #FREE_NUMBER, TMP
CNT = CNT + 1
If i > Maximum_Value Or Left(TMP, 1) = "-" Then
Exit Do
Else
HI_BUN(i) = TMP
i = i + 1
End If
Loop
Close #FREE_NUMBER

'処理
Workbooks(MAIN_FILE).Activate
HI_START_CELL1.Select

For t = Minimum_Value To UBound(HI_BUN)
ActiveCell.Value = HI_BUN(t)
ActiveCell.Offset(1, 0).Select
Next

HI_START_CELL1.Select

MsgBox "OK"

End Sub


この効率的にマクロ化可能かどうか?
投票数:74 平均点:5.14
返信する

この投稿に返信する

題名
ゲスト名   :
投稿本文

投稿ツリー

  条件検索へ


スポンサーリンク
スポンサーリンク
エクセル・ワード質問/回答集 - クイズ・問題QUUS! - 無料英語学習 - 投資家・トレーダー掲示版
為替(FX)テクニカル分析入門 - エクセル(EXCEL)学習・入門 - Word(ワード)の使い方/活用・入門
Copy right(c) 2006-2010 エクセル&ワード質問掲示板 all right reserved