仕事上、CSVファイルを利用することが多いです。
なのでCSVファイルをできるだけ簡単にエクセルにインポートする方法を探してみました。
VBAを使ってやってみます。

普通の人でも使いやすいようにボタンを付けて、ボタンをクリックしたら動作するようにします。


コードは以下のように書きました。
ボタンを押すとファイル選択のダイアログが出て選択できるようになっています。
インポート先は、"Sheet2"です。

クリックで別画面表示
コピーしやすいよう、以下にテキストで記載しておきます。
----------------------------------------------------------------
Sub ボタン1_Click()
   
    Dim Ws As Worksheet
    Dim Qt As QueryTable
    Dim SelFile As Variant
    Dim ConFile As String
   
    SelFile = Application.GetOpenFilename("CSVファイル(*.csv),*.csv")

End Sub

-----------------------------------------------------

QueryTables.add は様々な指定ができます。
ここで指定いるのが、

.TextFilePlatform = 932  文字コードです。"932"はShift-JIS　UTF-8は"65001"です。
.TextFileParseType = xlDelimited 指定した区切り文字ですよという指定。xlDelimitedは既定値です。
xlDelimited に対する区切り文字の指定で、csvだということ
タブ区切り文字の場合は
.TextFileTabDelimiter = True　と記載します。

ここでテストとして国勢調査の"年齢（５歳階級），男女別人口－都道府県"のcsvをダウンロードて読み込んでみます。

設置したボタンを押すと、ファイル選択が出るので、ダウンロードしたファイルを選択すると



うまく読めると思います。

[7回]

[0回]

小数点以下の指定された桁以下を四捨五入した数値を返します。

構文

Round(expression [, numdecimalplaces ] )

Round 関数には、次の引数があります。

[2回]

[2回]

[1回]

久々の書き込み。何をしていたかというと、とある英語塾の英単語練習ソフトを作成していました。

そう・・・、Wavの鳴らし方とかは、すべてその英単語練習ソフトのためだったのです。

ふぅ、やっと終わった・・・、というかやっとβ版までこぎつけたのでした。

[0回]

　さて、困ったことになった、Waveの音量調節。

　MCIコマンドではデバイスによっては使えたり使えなかったり・・・。

　ちなみに私の環境では使えないということが分かった以上、もうどうすることもできなかった・・・。

　そんななか、ようやく見つけたマイクロソフトのページ。

Visual Basic からのサウンド ファイルの音量を制御する方法

[0回]

　仕事から帰ってきてまで、プログラムをする生活・・・。
　今、とある英語塾の英単語練習ソフトで新しいソフトを開発中です。

　今回は、画像を表示するとともに、音声も出力するというもの。

　英語塾より、画像データと、音声データが送られてきたのでテストしてみたのですが、困ったことになりました。それは、画像を見て、OKでだったりNGだったりしたら、ボタンをクリックするのですが、そのときに出る音と、音声の音の大きさが若干違うというもの。

　いまさら音声データを作り直すというわけにもいかないので、苦肉の策として、ソフト側で音声の音量を調整できるようにしようと思い立ったのでした。

　しかし、これが苦難の道を歩むことになるとは・・・。

[1回]

　はい電算室です。今日はなにがおきるのでしょうか。

　今、「お姉ちゃん」が困っていること。それは、Aceessのテキストボックスに入力してある一定の行数を超えると警告メッセージを出すというもの。

　そんなの改行コード（CrLf）をカウントすればいいことじゃん。

　と思ったのですが、実はそう簡単ではありませんでした。

[2回]