掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
モジュール変数としての二次元配列の宣言 (ID：111198)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
頂いたアドバイスを参考にして Dim Table(1 To 3) As Variant Dim IndexNo As Integer Private Sub Form_Load() Func End Sub Private Sub ComboBox_Click(Index As Integer) IndexNo = ComboBox(Index).Index Label1.Caption = Table(IndexNo)(0) Label2.Caption = Table(IndexNo)(1) Label3.Caption = Table(IndexNo)(2) End Sub Sub Func() Table(1) = Array(40, 45, 35) Table(2) = Array(50, 65, 45) Table(3) = Array(70, 85, 65) End Sub というものを作ったんですが、型が一致しませんというエラーがでて、解消せきません。 ComboBoxはコントロール配列で、SSTabのそれぞれのページ毎に設置してあります。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.