- ベストアンサー
ExcelのVBAで高速に組換え処理ができる方法
nag0720の回答
- nag0720
- ベストアンサー率58% (1093/1860)
単純に計算すれば、７つのコースの並べ方は、７！＝５０４０通り そのうち、両端がコースGにならない組み合わせは３６００通り 時間さえ気にしなければ、 この３６００通りから順に４つ選んで条件に合うものだけを出力すればいいでしょう。 高速にということであれば、 コースGが同じ日になる２つの組み合わせを３６００×３６００の中から選びんでリストを作り、さらにその中から条件に合う２組の組み合わせを調べればかなり時間短縮になるでしょう。
関連するQ&A
- エクセルＶＢＡについて
ＶＢＡに関しての質問です。 Ａ列に日付（10行目から） Ｂ列にその日の売上が 300行（300日分）入力されてる表があるとします。 Ｃ列にその日を含めた過去Ｎ日間の最大の売上を表示させたいのです。 例えば 過去5日間なら過去5日間の最大売上げを毎日表示させたいのです 当然この場合は５日間なのでＣの１３行目までは空白になります。 「Ｎ」日はＡ１セルに任意の日数で入力することによって希望の期間の数値 が表示できるようにしたいのです。 関数を使ってできるのいですが、事情がありましてエクセルのマクロの 繰り返しのプログラムでやりたいのですが ＶＢＡに関しては全く素人ですの。どなたかご教授願えませんでしょうか よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBAで色塗りについて教えてください
VBA初心者です。 例えばB列2行目から下に(1)～(7)までの番号を不規則に入力することにより F列11～17行目に1セルずつ右へ色塗りをしていくにはどうプログラムをかいたらよいでしょうか？ 番号によって、色塗りの行と色は決まっています。 (1)→11行目、黄色 (2)→12行目、青色 (3)→13行目、赤色 (4)→14行目、緑色 (5)→15行目、白色 (6)→16行目、黒色 (7)→17行目、茶色 また色塗りはF列からBD列までで終了です。 番号の入力回数の多いものが色塗りを早く終了できることになります。 VBAの本をみながら試行錯誤していましたが、うまくできず… どなたか詳しい方、お力を貸してください。
- ベストアンサー
- オフィス系ソフト
- EXCELでVBAをつかったコピーの高速化
EXCELのVBAで、A1からA1000まで乱数をセルに書き込むと8秒かかるのですが、これを高速化することが可能でしょうか？ For 行番号 = 1 To 1000 Cells(行番号, 1).Value = Int((10 * Rnd) + 1) Next セルに書き込まずに、1000個の乱数を発生させると1秒もかからないので、8秒のうちのほとんどの時間は、セルへの書込み時間にとられています。 EXCELで列のコピーをした場合は、セルへの書込み時間が早いので、1000個の乱数の結果をいったんメモリに書き込み、列のコピーのように、セルにコピーができれば、高速化が可能かなと思うのですが、VBAでできるのでしょうか？よろしくお願いします。 For 行番号 = 1 To 1000 Int((10 * Rnd) + 1)をメモリに書込み Next メモリの内容をA1:A1000にコピー
- ベストアンサー
- オフィス系ソフト
- エクセルVBA
A1からE20までの範囲に数字が表示されています。 そしてその表の行ごとの数値の合計をG列に算出して表示させたいのですが どのようにすれば良いのでしょうか。 VBA初心者なので、分かりやすく教えていただけると助かります。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセルVBAについて
エクセルVBAについての質問です。A１、B1と順に入力していき、最終 F１列にカーソルがいったときに（F1を空欄のまま）エンターキーを押すと次の行のD２にカーソルが飛ぶ、そしてD2、E2に入力をして、G列にカーソルを動かしエンターキーで次の行のA列にカーソルが移動する、こんな操作をしたいのですが。つまりF列にカーソルがいったらカーソルは次の行のD列に飛び、G列にカーソルがいったら次の行の先頭つまりA列にカーソルが移動するように。VBA初心者でもつくれるかどうか、よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルVBAについて教えてください。
エクセル2007を使ったVBAについて2つ質問です。 1つ目の質問は、5列目の右端の数字を2列目の右端に持ってくるため、 Range("B2").End(xlToRight).Next.Select ActiveCell.FormulaR1C1 = Range("A5").End(xlToRight) というVBAを組んだのですが、2列目に空白が入っている場合うまく動かないため動くように したいのですが、どのように組めばいいのかわかりません。 例 A B C D E F G H I J K 1 2 【数値1】 □ □ □ 1 2 3 4 5 3 4 5 【数値2】 6 7 8 9 10 6 ※□は空白 上記の例の場合、5行目の右端である10を2行目の空白を除いた右端である5の隣に持っていきたいです。 2つ目の質問ですが上記例の2列目の両端（1と5）を選択してDeleteする方法がわかりません。 2つの質問についてわかる方おりましたら教えていただけると助かります。 よろしくお願いしします。
- ベストアンサー
- その他MS Office製品
- エクセルVBA/抽出・貼付け
下記を行いたいのですが、どのようなコードになるのでしょうか？ シート001（入力用） (1)A1～A50、B1～B50、C1～C50、D1～D50 に数値、E1～E50に文字列 (2)F1～F50、G1～G50、H1～H50、I1～I50 に数値、J1～J50に文字列 ※空白行混在 シート002（計算用） シート001に作ったコマンドボタン：クリックにより、 シート002を表示させ、A1～E100に、 シート(1)のA1～E50とF1～J50の空白行以外を連続して 反映させたい。並べ替え用など別シートを用いずに、 VBAコード内で処理したい。
- ベストアンサー
- オフィス系ソフト
- Excel VBAについて
VBA初心者です。 社内の様式に合うようなVBAを組みたいのですが。。。 １，様式は表になっており１つのグループに5つの選択肢があり横に5グループ，縦に12グループあります。（例えば１行目にA1.A2.A3.A4.A5|B1.B2.B3.・・・・E3.E4.E5 ２行目にF1.F2.F3.F4.F5|G1.G2・・・・１２行目にBM1.BM2のような表） ２，シートは２枚あり１枚目のシートで選んだ1グループ1項目に１つだけ○がつく（ダブルクリックで選択し，違う項目を選択すれば前に選んだ項目の○は消える。） ３，１枚目に丸がついた項目が２枚目の任意のセルに表示される（例えば１枚目のシートのＡグループのA3を選択すれば２枚目のシートの任意のセルにA3と表示され，取り消し変更された場合は変更後の選択肢のみ表示される） ４，また，選択する項目は変更されないように保護をかけたい。
- ベストアンサー
- オフィス系ソフト
- excel vba DATAの日集計
excel vba DATAの日集計 いつもお世話になっています。 "DATA"シートのセル"D2"の日付を変えると表の数値が変わるようにしています。 その日毎のデータを"集計"シートの日別の表に飛ぶようにしているのですが、 １日分の転記するセル数が多く、Select Caseで３１日分のコードを書くと、あまりにも プロシージャーが大きくなります。（Case1からCase31・・・結果分割してますが） FOR NEXT なのかな～、もっと効率のいい書き方がありましたらよろしくお願いします。 例："集計"シート１日分は、9行となります。それぞれ"DATA"シートからの転記です。"DATA"シートのF5+F10,G5+G10~AC5+AC10までそれぞれの値を"集計"シートのG5からAD5まで、F6+F12,G6+G12~AC6+AC12までそれぞれの値を"集計"シートのG13からAD13までといった具合です （日の9行はそれぞれ決まったある行とある行の加算です、これが３１日分の行があります） Sub macro() Dim myrng As Range Dim c As Range Set myrng = Sheets("DATA").Range("D2") For Each c In myrng Select Case c.Value Case 1 '１行目 Sheets("集計").Range("G5").Value = Sheets("DATA").Range("F5") + Sheets("DATA").Range("F10") | | Sheets("集計").Range("AD5").Value = Sheets("DATA").Range("AC5") + Sheets("DATA").Range("AC10") | | '９行目Sheets("集計").Range("G13").Value = Sheets("DATA").Range("F6") + Sheets("DATA").Range("F12") | | Sheets("集計").Range("AD13").Value = Sheets("DATA").Range("AC6") + Sheets("DATA").Range("AC12")
- ベストアンサー
- Visual Basic
- エクセルVBAでデータ検索（Win2000,Excel2000）
エクセルで毎日の業務で手計算している作業をVBAコードかいて試しているのですが、縦と横の検索で行き詰まってしまい質問しました。どうぞよろしくお願いします。 ＿A＿＿B＿＿＿＿C＿＿＿＿D＿＿E＿＿F＿＿＿G＿＿＿H 1| 2|＿＿＿＿＿＿＿その他＿1～3＿4～6＿7～10＿11～20＿21～30 3| 3|＿＿項目A＿＿＿ 0＿＿＿50＿＿49＿＿46＿＿＿43＿＿40 4|＿＿項目B＿＿＿ 0＿＿＿45＿＿44＿＿39＿＿＿37＿＿34 5|＿＿項目C＿＿＿ 0＿＿＿43＿＿42＿＿34＿＿＿30＿＿ 28 行 *このデータは現在（B3:V42）にあり今後増える可能性あり *1行目とA列は空白です。 *2行目とB列は対応する項目です。 *3行目は関係ない値が入っています（データをつくる為の値） このようなデータが、"Sheet2"にあると仮定します "Sheet1"のシート上に配置したComboBox(コントロールツールボックスの)に検索値があります。 （ComboBox1 → 数値 , ComboBox2 → 数値 , ComboBox3 → 文字）*リストは"Sheet1"に登録してあります。 TextBox1 ÷ 2 の結果を小数点以下切上げし、これにTextBox2の値をかけたもの(仮にAAAとする)が、2列目のそれぞれのセルの数値範囲に対応し、TextBox3の文字列がB列に対応し、両検索結果の交わったセルの値を返すようにしたい。 例）もしAAAが「8」なら「F列」をみる。TextBox3 の文字列が「項目B」なら「4行目」をみる。この結果、交わったセルは「F4」なので、「F4」にある値「39」を"Sheet1"."A1"に返す。 また、これらコンボボックス（このシートとは別にテキストボックスを使うこともある）にはひとつずつchangeイベントでいきなり別シート("Sheet3")に書くコードが既に書いてあります。このセルから取り出すことも可能です。よろしくお願いします。
- 締切済み
- オフィス系ソフト
お礼
ありがとうございます。 もしよろしければ、どういうコードになるか教えて頂けないでしょうか。