ExcelVBAで初期値のセット

前へ 次へ
このQ&Aのポイント
  • ExcelVBAでTypeで定義したデータ型に初期値をセットする方法について教えてください。
  • Public ConstでTypeで定義したデータ型の変数に初期値をセットすることはできません。
  • 他の方法を見つけることができませんでした。
回答を見る
  • ベストアンサー

ExcelVBAで初期値のセット

ExcelVBAで初期値のセット Typeで定義したデータタイプの変数にConstで初期値をセットしたいのですがどのようにしたら良いのでしょうか。 例えば Public Const Sdata As String = "AAAAA" Public Const Idata As Long = 1 これはできますが、 Type typeA Sdata As String Idata As Long End Type Public Const Adata As typeA = "AAAAA",1 これはできません。 Typeで定義したデータ型にいるれ方法をお教えください。 ExcelVBA Type Const で検索してみましたが見つけきれませんでした。

質問者が選んだベストアンサー

  • ベストアンサー
  • tohru999
  • ベストアンサー率49% (76/154)
回答No.1

こういった方法はダメですか？ Type typeA Sdata As String Idata As Long End Type Public Property Get Adata() As typeA Adata.Sdata = "AAAAA" Adata.Idata = 1 End Property

Hirorin_20
質問者

お礼

ありがとうございました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 関数の引数に複数のユーザ定義型変数を使いたい

    一つの関数の一つのパラメータが異なるユーザ定義型を受けられるようにしたいのですが、どのようにすればいいのでしょうか？ Public Type TypeA strCodeA As String intNumA As Integer End Type Public Type TypeB strCodeB As String intNumB As Integer End Type Public Function funcTest(arg1 As Variant) As Integer (略) End Function と記述して関数を Dim datA As TypeA iResult = funcTest(datA) と呼び出そうとすると、次のようなエラーメッセージが表示されて進みません。 コンパイルエラー: パブリックオブジェクトモジュールで定義されたユーザー定義型に限り、変数に割り当てることができ、実行時バインディングの関数に渡すことができます。

  • ファイルサイズ固定の保存方法

    ファイルサイズを固定にしてバイナリ形式で保存を したいのですが、 Public Type typTest 　　iData as integer 　　lData as Long 　　stData as String 　　sData as Single end Type ↑の構造体をバイナリ形式で保存をしてそのファイルサイズを２０バイトにしたいと思っています。 stDataに"Test"という文字を半角で保存した時は14バイトで、 全角にした時は18バイトになってしまいます。 stDataを10バイト固定にする方法はありますでしょうか？ 宜しくお願いします。

  • ExcelVBAで他のアプリをスクロールさせたい

    エクセルVBAから 他のアプリのスクロールバーを操作して、指定範囲で画面スクロールしたいと思っています。 キー入力では操作出来ない（マウス操作でのみスクロールされる）アプリなので、 Sendkeysは使えないのではないかと思い、 APIでハンドルを取得して、 SendMessageすればできるかなと思いましたが、APIについてよく分からないので、 とりあえず、メモ帳で以下を作成してみました。しかし、スクロールされません。 どこがいけないのか教えていただけないでしょうか？ よろしくお願いします。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Public Declare Function FindWindowA Lib "User32" (ByVal cnm As String, ByVal cap As String) As Long Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const WM_VSCROLL = &H115 Public Const WM_HSCROLL = &H114 Public Const SB_TOP　= &H6& Public Const SB_BOTTOM　= &H7& Sub handle_get() 　Dim Handle As Long 　Dim Ap1 As String 　Ap1 = "a.txt - メモ帳" 　AppActivate Ap1 　Handle = FindWindowA(vbNullString, Ap1) 　SendMessage Handle, WM_VSCROLL, SB_BOTTOM, ByVal CLng(0) 　SendMessage Handle, WM_HSCROLL, SB_TOP, ByVal CLng(0) End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

  • excelVBAコードを教えていただけませんか

    excel2000です。 下記コードが簡単そうと思いつつ、いざやろうとすると自分では作ることができず投稿させていただきました。どうかご教授の程よろしくお願いいたします。 excel2000 VBAのコードを教えていただけませんか ・「差し込み表示.xls」から「実験データ」へ値を読みに行き、表示させようとしています。 一日だけの日付をする場合は、下記に記載しているようなコードで対応できるのですが、月を指定して、30(31)日分のデータを読みにいく場合、どういうコードに変更していいか分からず、投稿させていただきました。 ■やりたいこと ・年月を「差し込み表示」のＥ１セルに記載して、データ読み込みを押すと、したのＮＯ１～３１(日付をあらわしています）にそれぞれ対応する値を表示させたい。 ■現物ファイル 現物ファイルを、下記にＵＰさせて頂きました。差し支えなければ確認いただけると幸いです。よろしくお願いいたします。 ■アップローダー 投稿NO4662 http://www.kent-web.com/pubc/book/test/uploader/uploader.cgi ■一日で読み込むときのプロシ－ジャー Sub datatyuusyutu() Const sashikomiDisplay As String = "差し込み表示.xls" Const dataFile As String = "実験データ.xls" Dim i As Long Dim j As Long Dim k As Long Dim objectionrow As Long Dim lastRow As Long Dim targetDate As String Dim targetTime As String Dim data(1 To 43) As Double Dim dataFindFlag As Boolean Dim 対象フォルダ As String '検索する年月日を取得 targetDate = Range("E5").Value 対象フォルダ = ThisWorkbook.Path & "\" Workbooks.Open 対象フォルダ & dataFile lastRow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行を得る '年月日で検索 For i = 2 To lastRow If Cells(i, 2) = targetDate Then Cells(i, 2).Select dataFindFlag = True For k = 1 To 43 data(k) = Val(Cells(i, k)) Next k Exit For End If Next i Windows(sashikomiDisplay).Activate With Workbooks(dataFile) If dataFindFlag = True Then Cells(1, 2) = data(1) Cells(12, 3) = data(4) Cells(14, 6) = data(5) MsgBox "実行しました" Else MsgBox "データがありません" End If End With Workbooks(dataFile).Close savechanges:=False End Sub

  • ExcelVBAでのデータ型変換、もしくは、サブルーチンの引数のデータ型指定について

    ExcelVBAでVariant型のものをRange型、もしくはString型に変換したいのですができますか？ また、サブルーチンを定義する際に、引数のデータ型をRange型で定義したいのですができますか？ わかる方は教えてください。よろしくお願いします。

  • EXCELVBA フォルダ検索API

    エクセルからVBAでフォルダを選択させるコマンドを、APIを使ってフォルダ検索ダイアログボックスを出すまでは見よう見真似でできるのですが、このとき「あたらしいフォルダ」のボタンは必要ないので出したくないのですが、どこかに定数を指定すればよろしいかご存知でしたら教えてください。 (使用OS： Windows2000,Excel：2003) ちなみにコピペした宣言部分は以下のものです。 *************** Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _ (ByVal pidl As Long, ByVal pszPath As String) As Long Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _ (lpBrowseInfo As BROWSEINFO) As Long Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long) Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Public Const WM_USER = &H400 Public Const BFFM_SETSELECTIONA = (WM_USER + 102) Public Const BFFM_INITIALIZED = 1 ********************

  • ExcelVBA　.cells(…　が働きません

    お世話になります メモリーの、壁と 格闘して、います 其の、中で OfficeTANAKA様の http://officetanaka.net/excel/vba/tips/tips71.htm の、ページを 拝見し Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) と、モジュールに、 書き加えた、ところ With　Ws　　　↓此処、メソットがダメ 　With　.Range(.cells(… が、突如エラーに なり始めました Private Declare S… を、外して 全て、元通りに しても 回復、しません 回復可能で、しょうか？ 宜しく お願い、します 　　　　　　　　　　　　　　　　　記 Option　Explicit Option　Base　0 Private　Declare　Sub　GlobalMemoryStatus　Lib　"kernel32"　(lpBuffer　As　MEMORYSTATUS) '↑　　↑　　↑　　↑ '此れを、加えると Type　変数取得順速度差を減らす 　s1　As　Long 　s2　As　Long 　Ch　As　Long 　du　As　Long 　St　As　String 　Rg　As　Range End　Type Const　n　As　Long　=　2000 Dim　lp　As　変数取得順速度差を減らす,　Data(1　To　n,　1　To　n)　As　Long,　k　As　Long,　Ws　As　Worksheets Sub　ダミーデータ作成1() 　Set　Ws　=　Worksheets.Add() 　Worksheets("Sheet1").Select 　With　Ws’　　　↓此処で、エラー 　　With　.Range(.Cells(1,　1),　.Cells(n,　n)) 　　　Let　lp.St　=　"Min("　&　Ws.Name　&　"!"　&　.Address　&　")" 　　End　With 　　For　k　=　0　To　Int(n　/　100)　-　1 　　　For　lp.s2　=　1　To　100 　　　　For　lp.s1　=　1　To　n 　　　　　With　.Cells(k　*　100　+　lp.s2,　lp.s1) 　　　　　　.Formula　=　"=RANDBETWEEN(1,"　&　n　&　")" 　　　　　　.Calculate 　　　　　　.Value　=　.Value 　　　　　　Data(k　*　100　+　lp.s2,　lp.s1)　=　.Value 　　　　　End　With 　　　　Next　lp.s1 　　　Next　lp.s2 　　　Worksheets("Sheet1").Range("c1").Value　=　k 　　　Application.DisplayAlerts　=　False 　　　ThisWorkbook.Save 　　　Application.DisplayAlerts　=　True 　　Next　k 　　Set　lp.Rg　=　.Range(.Cells(1,　1),　.Cells(n,　n)) 　End　With End　Sub 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　以上

  • ＥＸＣＥＬ　ＶＢＡ　データのある範囲の特定が悪い？　　

    アンケート調査票を簡単につくために、下のようなマクロを教えていただいたのですが、もとデータ項目の参照範囲がセルのＢ５より上にあるもの（空白の場合も）も項目としてしまっているようなので、どこを手直しすればいいのか、すみませんが教えてください。 Sub test() '定数の設定 Const strInputSheet As String = "Sheet1" Const lngInputRow As Long = 5 Const lngInputCol As Long = 2 Const strOutputSheet As String = "Sheet2" Const lngOutputCol As Long = 3 Const lngOutputRow As Long = 4 Const strMessageA As String = " は " Const strMessageB As String = " に対してどの位影響があると思いますか？" '定義 Dim lngMaxRow As Long Dim lngCountA As Long Dim lngCountB As Long Dim strA As String Dim strB As String Dim lngRow As Long '項目数を把握 Sheets(strInputSheet).Select Cells(ActiveSheet.Rows.Count, lngInputCol).Select Selection.End(xlUp).Select lngMaxRow = Selection.Row 'Ｂ列のデータ最終行を取得 lngRow = lngOutputRow '出力開始行の設定 '項目Aをなめる For lngCountA = lngInputRow To lngMaxRow 　strA = Cells(lngCountA, lngInputCol).Value '項目Aの取得 　'項目Bをなめる 　For lngCountB = 1 To lngMaxRow 　　If lngCountA <> lngCountB Then '項目Aと項目Bが同じときはここは処理しない 　　　strB = Cells(lngCountB, lngInputCol).Value '項目Bを取得 　　　Sheets(strOutputSheet).Cells(lngRow, lngOutputCol).Value = strA & strMessageA & strB & strMessageB '文字列を結合 　　　lngRow = lngRow + 1 '改行する 　　End If 　Next lngCountB Next lngCountA End Sub

  • ExcelVBA オブジェクト変数の取扱について…

    お恥ずかしい限りです、 やはり色々解っていないですね。 今回はオブジェクト変数についてお教えください 例としてはこんな感じでしょうか？ Option　Explicit Sub　Test() Dim　カウンタ　As　Long,　オブジェ　As　Object,　データ(0　To　1)　As　String,　メンバ　As　Long 　　　　データ(0)　=　"Ａ" 　　　　データ(1)　=　"Ｂ" 　　　　メンバ　=　間乱数(0,　1) 　　　　オブジェ.Value　=　データ(メンバ)　'　　　　　　　此所と 　　　　Set　Sheets(1).Ranje("A1")　=　オブジェ　'　　此所の書き方 End　Sub Function　間乱数(ByVal　Val1　As　Long,　ByVal　Val2　As　Long)　As　Long 　　　　間乱数　=　Evaluate("RANDBETWEEN("　&　Val1　&　","　&　Val2　&　")") End　Function 間違っていると思うのですが、 どう書き直せば良いか、Netを調べても解りません。 ご教示を、どうぞ宜しくお願い致します。 P・s・ SpecialThanks　mt2008　様 Evaluate、助かりました。

  • GetOpenFileName 開かない

    win7 32bitで使用していたVBAが、win10 64bitで動作せず、困っております。 ダイアログが開かないまま先に進んでしまうのですが、どのように修正すれば良いでしょうか？ #If Win64 Then Public Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( pOpenFileName As OPENFILENAME) As Long #Else Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( pOpenFileName As OPENFILENAME) As Long #End If Type OPENFILENAME lStructSize As Long hwndOwner As LongPtr hInstance As LongPtr lpstrFilter As String lpstrCustomFilter As Long nMaxCustrFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String Flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustrData As LongPtr lpfnHook As LongPtr lpTemplateName As Long End Type Public Const OFN_ALLOWMULTISELECT = &H200 Public Const OFN_CREATEPROMPT = &H2000 Public Const OFN_EXPLORER = &H80000 Public Const OFN_FILEMUSTEXIST = &H1000 Public Const OFN_HIDEREADONLY = &H4 Public Const OFN_NOCHANGEDIR = &H8 Public Const OFN_NODEREFERENCELINKS = &H100000 Public Const OFN_NONETWORKBUTTON = &H20000 Public Const OFN_NOREADONLYRETURN = &H8000 Public Const OFN_NOVALIDATE = &H100 Public Const OFN_OVERWRITEPROMPT = &H2 Public Const OFN_PATHMUSTEXIST = &H800 Public Const OFN_READONLY = &H1 Public Const OFN_SHOWHELP = &H10 Public Const OFN_EXTENSIONDIFFERENT = &H400 Public Function GetFileName(pstrDir As String, pstrFile) As String Dim pOpenFileName As OPENFILENAME Dim lngRet As Long pOpenFileName.hwndOwner = Application.hWndAccessApp pOpenFileName.hInstance = 0 ' pOpenFileName.lpstrFilter = "CSVファイル (*.xlsx)" & String(1, vbNullChar) & "*.xlsx" & String(2, vbNullChar) ' pOpenFileName.lpstrFilter = "全てのファイル (*.*)" & String( 1, vbNullChar) & "*.*" & String(2, vbNullChar) pOpenFileName.lpstrCustomFilter = 0 pOpenFileName.nMaxCustrFilter = 0 pOpenFileName.nFilterIndex = 1 pOpenFileName.lpstrFile = String(511, vbNullChar) pOpenFileName.nMaxFile = 511 pOpenFileName.lpstrFileTitle = String(512, vbNullChar) pOpenFileName.nMaxFileTitle = 511 pOpenFileName.lpstrInitialDir = pstrDir pOpenFileName.lpstrTitle = String(1, vbNullChar) pOpenFileName.nFileOffset = 0 pOpenFileName.nFileExtension = 0 pOpenFileName.lpstrDefExt = String(1, vbNullChar) pOpenFileName.lCustrData = 0 pOpenFileName.lpfnHook = 0 pOpenFileName.lpTemplateName = 0 pOpenFileName.lStructSize = Len(pOpenFileName) pOpenFileName.Flags = OFN_HIDEREADONLY _ Or OFN_EXPLORER lngRet = GetOpenFileName(pOpenFileName) GetFileName = Left(pOpenFileName.lpstrFile, _ InStr(pOpenFileName.lpstrFile, vbNullChar) - 1) If Len(GetFileName) Then pstrFile = Left(pOpenFileName.lpstrFileTitle, _ InStr(pOpenFileName.lpstrFileTitle, vbNullChar) - 1) pstrDir = Left(GetFileName, Len(GetFileName) - Len(pstrFile) - 1) End If End Function '実行プロシージャ Private Sub CmdlgTest() Dim strPath As String, strfile As String Debug.Print GetFileName(strPath, strfile) End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する