Excel VBA 質問スレッド No.1 (解決済)

【テスト投稿】 Excel VBA の質問掲示板を設置しました!!

投稿者 : 管理人     投稿日時 : 2015/08/30(Sun) 15:10:13     OS : Windows 7     EXCEL : Excel 2007
『自宅でプログラミング』管理人のyasuです。

以前より考えていました質問掲示板を設置しました。
テスト投稿も兼ねて、この掲示板の使い方を簡単に説明します。

●質問を投稿する
新規の質問を投稿するには、ヘッダーまたはフッターにある「新規質問」のリンクをクリックします。
質問入力フォームが開くので、名前や質問などを入力して投稿します。
質問を投稿すると、掲示板TOPページに質問スレッドとして表示されます。

記事の中ではこのような<b>HTMLタグ</b>は使えませんが、
プロシージャや制御文はスクリプトが自動認識し、こんな感じで↓見やすくします。

Sub sample5_9()
Dim FileNumber As Integer
Dim FilePath As String
Dim InputData As String

'使用可能なファイル番号を取得します。
FileNumber = FreeFile
FilePath = ThisWorkbook.Path & " est.txt"

'入力ファイルの存在チェック
If Dir(FilePath) = "" Then
MsgBox "入力ファイルが存在しません。", vbCritical
End
End If

'テキストファイルを入力モードで開きます。
Open FilePath For Input As #FileNumber

Do While Not EOF(FileNumber)
Line Input #FileNumber, InputData
Debug.Print InputData
Loop

Close #FileNumber

MsgBox "処理が終了しました。", vbInformation
End Sub

制御文の色付けについては、まだ甘い部分もありますが大目に見てください。
時間のあるときに少しずつ改善していきたいと思います。

[返信 1] Re : 【テスト投稿】 Excel VBA の質問掲示板を設置しました!!
投稿者 : 管理人     投稿日時 : 2015/08/30(Sun) 15:22:10
●質問の表示と返信
質問掲示板TOPページで質問のリンクをクリックすると、その質問と返信内容が表示されます。
返信するにはページの一番下にある返信フォームに入力します。

記事を引用したい場合は、各記事の下にある引用ボタンを押してください。
記事を引用するとこんな感じ↓で表示されます。

■[質問] 管理人yasuさん(2015-08-30 15:10:13)の記事
> 『自宅でプログラミング』管理人のyasuです。

> 以前より考えていました質問掲示板を設置しました。
> テスト投稿も兼ねて、この掲示板の使い方を簡単に説明します。

> ●質問を投稿する
> 新規の質問を投稿するには、ヘッダーまたはフッターにある「新規質問」のリンクをクリックします。
> 質問入力フォームが開くので、名前や質問などを入力して投稿します。
> 質問を投稿すると、掲示板TOPページに質問スレッドとして表示されます。

> 記事の中ではこのような<b>HTMLタグ</b>は使えませんが、
> プロシージャや制御文はスクリプトが自動認識し、こんな感じで↓見やすくします。

> Sub sample5_9()
> Dim FileNumber As Integer
> Dim FilePath As String
> Dim InputData As String

'使用可能なファイル番号を取得します。
> FileNumber = FreeFile
> FilePath = ThisWorkbook.Path & " est.txt"

'入力ファイルの存在チェック
> If Dir(FilePath) = "" Then
> MsgBox "入力ファイルが存在しません。", vbCritical
> End
> End If

'テキストファイルを入力モードで開きます。
> Open FilePath For Input As #FileNumber

> Do While Not EOF(FileNumber)
> Line Input #FileNumber, InputData
> Debug.Print InputData
> Loop

> Close #FileNumber

> MsgBox "処理が終了しました。", vbInformation
> End Sub
> 制御文の色付けについては、まだ甘い部分もありますが大目に見てください。
> 時間のあるときに少しずつ改善していきたいと思います。

質問や疑問が解決したら、「この質問を解決済みにする」にチェックを入れてください。
解決済みとなった質問は掲示板TOPページに「解決済」と表示され、グレーアウトされます。

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2019-06-17 03:57:30 )

Page
Top