- ベストアンサー
Excel VBAでsub,dimは何の略?
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
sub subroutine(サブルーチン) dim dimension(次元) です。 元々はFORTRAN言語で、手続きの開始を宣言するSUBROUTINEと、配列を宣言するDIMENSIONでした。 FORTRANのDIMENSIONやN-BASIC等でのDimは、配列変数を宣言するものだったのですが、 VBになって、配列じゃない変数もDimで宣言するようになりました。
その他の回答 (3)
dimは「dimension」の略、di-=dis-(=apart)+mension(=measure)、「(長さ・幅・厚さ等の)寸法;面積;容積;次元」といった意味があります。3次元の3-DのDです。変数の有効「範囲」を宣言するのでdimを使います。因みにdimは「〈光が〉仄暗い;〈ものの形が〉よく見えない,霞んだ;〈目・視力が〉ぼんやりしてよく見えない」といった意味があります。 ~ Subは何の略だろう・・・。
お礼
納得しました。 ありがとうございました。
- merlionXX
- ベストアンサー率48% (1930/4007)
SubプロシージャのSubはサブルーチン Dim(でぃむ)は、Dimension=次元 だったと思います。
お礼
subはプログラム(Routine)下位のプログラムという意味だったのですね。 ありがとうございました。
関連するQ&A
- Dim は何の略ですか?
エクセルで変数の型宣言をするとき、例えば Dim 変数 As Integer と書きますが、このDimは何の略でしょうか? 宣言はdeclarationだし、Dimから考えられるのは Dimensionですが、これは次元とかの意味で少し 違うような気がするのですが。
- 締切済み
- オフィス系ソフト
- エクセルVBAで未使用のSUBやFunction
エクセルVBA内で未使用のSUBやFunctionを洗い出したい。 例えばSUB_Aを読んでいる箇所についてソース内を検索すれば 解りますが、subやfunctionの量が多いので、 何か簡単に調べる方法はありますか?
- 締切済み
- オープンソース開発
- VBAでAccessからExcel
VBAでAccessからExcelファイルを ダイアログで選択して開き転記をさせたい。 以下のように書いてみるとダイアログ表示までは 出るのですが、Excelは起動しません、 何かが足りないとは思うのですが ご指摘、ご教授お願いします。 Sub test2() Dim objxls Set objxls = CreateObject("excel.application") Dim myfile Dim xls myfile = objxls.Application.getopenfilename() Set xls = objxls.workbooks.Open(myfile)
- ベストアンサー
- オフィス系ソフト
- Dimとは・・・
変数の宣言をする時の「Dim」は何の略でしょうか… ほかにもプログラムをやっていて、何の略かわからないとなかなか覚えられません。よいサイトをご存知の方お願いします。
- ベストアンサー
- Visual Basic
- エクセルVBAで。
お世話になります。 VBA初心者です。 (初心者でもないのですが、しばらく遠ざかっていました。) エクセルVBAの記述内容をコピーし、 エクセルの通常のシートへ貼り付けした際、 記述上「’」で始まる文字は緑色が付いていますが、 通常のシートへ貼り付けした際、黒字になってしまいます。 そこで、下記の様なVBAを記述し、貼り付け後に、 「’」から始まる文字を緑色に着色しようと試みましたが (やはり)うまくいきませんでした。 エクセル関数なんかも織り交ぜたおかしな記述だと思いますが 何となくやりたい事が伝わって頂けるかと思うのですが、 どう修正したら出来ますでしょうか。 ご教授下さいます様、宜しくお願いいたします。 記 Sub 色() Dim y As Integer Dim x As Integer Dim a As Integer mysheet = ActiveSheet.Name For y = 1 To 10 x = Sheets(mysheet).Cells(Rows.Count, y).End(xlUp).Row a = 0 Do Until a > x a = a + 1 If Right(Cells(y, a), 1) = "'" Then Cells(y, a).Select Selection.Font.ColorIndex = 10 End If Loop Next End Sub
- ベストアンサー
- Visual Basic
- エクセルvba
エクセルvbaなのですが Sub test() Dim xlApp As Object Dim xlBook As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName) 'コード・・・ Set xlApp = Nothing Set xlBook = Nothing End Sub これだと Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName) の部分で、エラーになります。 実行時エラー1004です。 自身ファイルをオブジェクトに格納して操作したいのですがどうすればいいでしょうか?
- ベストアンサー
- オフィス系ソフト
- VBA サブフォルダ内のエクセルファイル転記
VBAについてお尋ねします。 当方VBA初心者です。 やりたい事は下記です。 ・サブフォルダ(2階層目)に入っているエクセルファイルからマクロ実行ファイルにセルデータを転記 ・全てのサブフォルダを網羅 サブフォルダに対しての扱いが難しくて理解に困ってます。 サルプルなどありましたらいただけると幸いです。 よろしくお願いします。
- 締切済み
- Visual Basic
お礼
詳しく説明してくださってありがとうございます。 よくわかりました。