- ベストアンサー
VBA配列数式的に一括してRangeを扱える方法とオブジェクト変数の取扱いについて
cj_moverの回答
- cj_mover
- ベストアンサー率76% (292/381)
Sub testA2() ' ' "一行コード"的に使うなら Range("B1:B5").Value = Evaluate("INDEX(IF(ISBLANK(A1:A5),""結果１"",""結果２""),0)") Range("C1:G1").Value = Evaluate("TRANSPOSE(IF(ISBLANK(A1:A5),""結果１"",""結果２""))") End Sub
関連するQ&A
- オブジェクトを配列として扱いたい
Java(オブジェクト指向)を始めて数日の者です。 LinkedListを利用し、インスタンス化したオブジェクトをListに入れて 扱えるようにしたいと考えています。 具体的には LinkedList<クラス名> array = new LinkedList<クラス名>(); クラス名 object1 = new クラス名(); -object1の処理- array.add(object1); -object1の処理- array.add(object1); -object1の処理- array.add(object1); このようにして、object1を配列で管理するイメージです。 object1の処理結果は、毎度変わっています。 しかしこれですと、最後のobject1の処理の内容がすべてのarray(i)に入ってしまいます。 要は、array(i)は全て、同じobject1を参照しているだけ。 object1の変更結果がarray(i)に入っていくというイメージでは無い、ということでしょうか？ また、この他でインスタンス化したものを配列で管理できるような方法がございましたら、ご教授いただけると幸いです。m(_ _)m 動的に配列の要素数を変更(要素が追加）ができるようにしたいのです。
- ベストアンサー
- Java
- ExcelVBAの配列変数で一括でセルに数式を挿入する方法
ExcelVBAの配列変数で一括でセルに数式を挿入する方法 ExcelVBAでTEST1シートを参照して、TEST2シートに数式を貼り付けたいと思っています。 例えばTEST2シートのA1セルには、TEST1シートのA1を参照する数式 =IF('TEST1'!A1="","",'TEST1'!A1))を挿入、 TEST2シートのA2セルには、TEST1シートのA2を参照する数式 =IF('TEST1'!A2="","",'TEST1'!A2))を挿入、 それをA1セルからZ10セルまで同様に数式を挿入したいと思っています。 以下のように配列変数を用いて、一括で挿入すると数式ではなく、文字が入ってしまいます。 Sheets("TEST2").Cells(1, 1).Resize(10, 26).Formula = SUSHIKI ※SUSHIKI←数式を入れた配列 どのような記述を行えば、数式を貼り付けることができるができるでしょうか。 できればOffsetを使用した形で作成したいです。 どうかご教授お願い致します。
- 締切済み
- Visual Basic
- VBAの動的配列について
いつもお世話になっております。 エクセルVBAを学習中の者です。 動的配列についてお伺いします。 添付資料を見て頂きたいのですが、 シート名1～4に同一レイアウトの表があります。 これらの表をを2次元配列に格納し、その後、同一レイアウトのシートに一括転記したいと考えています。 転記の事を考えて、条件としては、 シート1から2行目以降のデータを配列『data』に格納、変数『dataCnt』が転記先の行番号と同じになるように考えています。 当初は、配列の定義を『Dim data(100,3) As Variant』と、多めに要素数を定義して、コードを記述していました。 正直、凄く気持ちが悪い感じでした・・・ 最近、動的配列を学習しまして、 シートごとにデータの行数を変数『lastRow』に格納して、配列を再定義して【データ数＝要素数】とならないか？ と思い、下記のようなコードを書いてみました。 が、『ReDim Preserve～』で実行エラーが発生してしまいます。 原因がなぜかわかりません！ そもそも、動的配列はこのような使い方は出来ないのでしょうか？ Sub テスト() Dim data() As Variant Dim x As Long Dim i As Long Dim ii As Long Dim lastRow As Long Dim dataCnt As Long dataCnt = 2 For x = 2 To 5 Worksheets(x).Activate lastRow = Cells(Rows.Count, 1).End(xlUp).Row If x = 2 Then ReDim data(2 To lastRow, 3) Else ReDim Preserve data(2 To dataCnt + lastRow - 1, 3) End If For i = 2 To lastRow For ii = 1 To 3 data(dataCnt, ii) = Cells(i, ii) Next ii dataCnt = dataCnt + 1 Next i Next x End Sub どなたかご指導をよろしくお願いいたします。
- 締切済み
- Excel（エクセル）
- VBAで配列の要素と、配列外の他の変数との時刻比較
独学の者です、お願いいたします。 Dim item(1 To 288) As Date ’ 配列をDate型、各要素は07：05のような時刻データ Dim kunt_d As Date ’上記配列の各要素と別の時刻データ、Date型 If kunt_d = item(a) Then ’配列の要素と他の変数とを比較、どちらも時刻データ。 この際、上記の同じDate型ですと動作しません、時刻が一致している場合でも、 条件式はスルーされます。 そこで、配列と比較する別の方は、String型にしてみたところ 動作しました。 このケースで、Date型同士は間違った使い方でしょうか？ また、配列と配列外の変数との比較は型の一致は必要無いのでしょうか？ よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- JS Object要素に読み込んだデータを配列に
JavaScript Object要素に読み込んだデータを配列変数に格納したい [html] <object data="sample.txt" type="text/plain" width="300" height="100"></object> [sample.txtの内容] United States, アメリカ China, 中国 Germany, ドイツ Japan, 日本 [JavaScript] // 配列に読み込まれたデータ const data = [ ["United States", "アメリカ"], ["China", "中国"], ["Germany", "ドイツ"], ["Japan", "日本"] ]; [仕様] ・ローカル環境であること ・jQueryなどのプラグインは不使用 ・ファイルリーダーは使わない ・JavaScriptのコードを用いて実現させること 以上から、 Object要素に読み込んだデータを配列変数に格納できますか？
- 締切済み
- JavaScript
- 配列は何故オブジェクト？
僕はプログラミング初心者です。 javaの参考書で、配列について記述されていた章にて以下の記述がありました。 「データとそれを操作する機能をひとまとまりにしたものをオブジェクトといいますが、その意味では配列もオブジェクトです」と。 そこで、配列がオブジェクトである理由について、以下の仮説を立ててみました。正しいですか？ 配列 ・データを保持する（配列要素を保存する） ・指定されたインデックス（牽引番号）のデータ（配列要素）を渡す 例えば、int [] n ＝{３，5，7}；という配列があったとします。このソースコードにより、配列は箱に入れられヒープに保管されます。これにより、配列はデータを持っていることを意味する。これに int data＝n[0]；のように配列要素へのアクセスを行うと、配列は自身の持ってるデータ（配列要素） を変数dataに渡します。これは配列は、指定されたインデックス（牽引番号）のデータ（配列要素）を渡す機能を実行している。 つまり、上記から配列はデータとそれを操作する機能を持っており、オブジェクトといえる。
- ベストアンサー
- Java
- VBA オブジェクトが空かどうか判定する
皆様のお知恵を拝借させてください。 エクセルVBAでオブジェクトを入れる変数を定義し、その変数にオブジェクト が入っているかどうか検査したいのですがどうしたらいいでしょうか。 例えば--- Dim a As Workbook If a <> nothing then ←この部分が分からない。このままだとエラー。 処理 End if --------- 環境 エクセル2003 WinXPsp1
- ベストアンサー
- Visual Basic
- エクセルVBAのSETステートメントについて
マクロを組み込んだエクセルファイルが完成したのですが、ファイルサイズが大きくなってしまった ため、ファイルサイズを軽くするために現在 試行錯誤を繰り返しています。（シート数：50シート） ファイルサイズを軽くするために今までに取り組んできたのは下記の９項目です。 ・数式を値に変換 ・シートイベントプロシージャをＴｈｉｓＷｏｒｋｂｏｏｋイベントに変換してマクロ構文を簡素化 ・隠れオブジェクトを全て削除（オブジェクト数を最小限・最小サイズに抑える） ・条件付書式、入力規則、名称登録を最小限に抑える ・必要な条件付書式のセル番地には必ず 『 ＄ 』 を付ける ・Ｏｆｆｓｅｔ 構文を最小限に抑える ・未使用セルの削除（最終セルの位置を正常化） ・Ｃａｌｌ マクロを多用してマクロ構文の情報量を極力減らす ・型に応じた変数宣言を徹底（バリアント変数扱いを最小限に抑える） ただ、『 型に応じた変数宣言 』 のＳＥＴステートメントの正しい使い方について私自身が良く理解 をしていないためにご指導を頂きたく投稿をさせて頂きました。不明なのは下記の２点です。 (1)『 ＳＥＴ a = ○○○○ 』 はオブジェクト型変数に対してのみ使用するものなのでしょうか？ データ型（Ｄａｔｅ）や文字列型（Ｓｔｒｉｎｇ）の変数に対してはＳＥＴステートメントは使用しないもの なのでしょうか？仮にデータ型や文字列型変数に対してＳＥＴステートメントを使用した場合の メリットとデメリットについて教えて下さい。もしかして、データ型や文字列型の変数の場合は ただ単純に 『 ＳＥＴ 』 の文字が省略されているだけなのでしょうか。この基本的な部分の 理解ができていないので、理屈が分からずに困っております。 (2)『 ＳＥＴ a = Ｎｏｔｈｉｎｇ 』 の対応はどこまで必要なのでしょうか？ 上記(1)の質問にも絡むのですが、メモリリソースを開放してファイルサイズを軽くするためには 『 ＳＥＴ a = Ｎｏｔｈｉｎｇ 』 が有効であるという情報がインターネット上に多数掲載されてますが データ型や文字列型変数に対してもプロシージャの末尾に 『 ＳＥＴ a = Ｎｏｔｈｉｎｇ 』 の構文 を付け加えた方がファイルサイズが軽くなるものなのでしょうか？ また、下記マクロ処理の場合にも 『 ＳＥＴ a = Ｎｏｔｈｉｎｇ 』 の構文は必要なのでしょうか？ 'Ｓｈをオブジェクト型変数として宣言 Dim Sh As Worksheet ： ： '全てのシートに対して以下の処理を実行 For Each Sh In Worksheets 固有のシートに対してではなく全てのシートに ： 対してマクロを実行する処理においても ： 末尾に 『 ＳＥＴ a = Ｎｏｔｈｉｎｇ 』 の構文を '次のブックに対しても同様の処理を実行 付け加えた方がファイルサイズが軽くなる Next Sh ものなのでしょうか？ とにかく、正攻法でファイルサイズを軽くする方法を探しています。コメントが長くなり過ぎてしまい ましたが、『 ＳＥＴステートメントの正しい使用方法 』、『 ファイルサイズを軽くするための裏技 』 などについて、ご存知の方がいらっしゃいましたら是非教えて頂けますよう宜しくお願いします。
- ベストアンサー
- その他([技術者向] コンピューター)
- ＶＢＡを始めたばかりです。
ＶＢＡを始めたばかりです。 下記でエラー「オブジェクトが必要です」が出ます。 何故ですか。 Sub A_Sample048() Dim mySht1 As Object Dim mySht2 As Worksheet '準備ここまで Set mySht1 = ActiveSheet If mySht1.Type = xlWorksheet Then Set mySht2 = mySht1 MsgBox mySht2.Name Else MsgBox "最前面のシートはワークシートではありません" End If Set mySht1 = Nothing 'オブジェクトの解放 Set mySht2 = Nothing End Sub よろしくお願いします。
- ベストアンサー
- Visual Basic
- stdClass Objectを連想配列のように個別に取り出したい。
$aに連想配列が入っているとして、 print "<pre>";print_r($a);print "</pre>"; ↓ array ( [Return] => array ( [data] => あいうえお ) ) このように連想配列の入った変数から データを個別に取るとき このように、配列名を並べると print $a['Return']['data']; ↓ あいうえお と、個別に取り出せますが、 あるデータをprint_rすると、 stdClass Object ( [Return] => stdClass Object ( [data] => あいうえお ) ) というふうに"stdClass Object"として出力されてしまいました。 stdClass Objectのデータを個別に取り出したいのですが 連想配列のような記述だとうまく取り出せません。 stdClass Objectのデータはどのようにして個別に取り出すのでしょうか？
- ベストアンサー
- PHP
お礼
有り難うございます、学ばせて頂きました またどうぞ宜しくお願い致します。 これってシート関数を評価するもの、 つまりシート関数そのままですよね？ VBAオリジナルでは出来ないのですか？