[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『チェックを入れた情報を別のエクセルシートへ反映』（ANN）
フォームコントロールのマクロでチェックボックスをC2から850個（行）作りました。
チェックボックスにチェックが入ったものは右横のD2にTRUEとして反映
チェックボックスにチェックが入っていないものはデフォルトのFALSEと反映されています。
同じエクセルでは作業が重たくなってしまうのでC2に配置しているチェックボックスにチェックをいれ、D2にTRUEと反映があったものをB2の情報のみ別のエクセルシートへ上から自動転機させていきたいのですが、良い方法をご教示いただけませんか？
イメージ↓ □はチェックボックスです。
（マクロエクセル）
A B C D
1 【タイトル行】
2管理番号/ここを別エクセルへ自動転記/ □ / TRUE
（転記用別エクセル）
A
1 【タイトル行】
2転記されたBの情報
＜ 使用 Excel：Excel2010、使用 OS：Windows10 ＞
ワークシート上にチェックボックスを並べたのですね。
チェックを入れた段階で転記してほしいのですか？ 何かボタン等を用意して一括で処理してほしいのですか？
ボタンを用意する場合、それはVBAで行うということでよろしいですか？ （わをん） 2018/02/01(木) 14:19
とりあえずVBAつかうなら、
１．オートフィルタを実行してD列が、「True」になっているものを抽出する
２．Intersectで、「マクロエクセル」シートの「抽出した表」と「B列」が重なる範囲を抜き出して
３．COPYメソッドでコピー 、引数に 「転記用エクセル」シートの「A1」セルを指定
でどうですか？
わをんさんの指摘部分も気になりますが・・・・
（上記の処理は逐一じゃなくて、一気にやるパターンです）
（もこな２） 2018/02/01(木) 14:23
A B C 1 2 あ ■ TRUE 3 い □ FALSE 4 う □ FALSE 5 え ■ TRUE 6 お □ FALSE
↑これを 別のエクセルファイルに↓空白なしで随時コピー転記する方法が知りたいです。
A B C D 1 2 あ 3 え 4 5 6
VBAでも関数でも構わないのですが、私のPCのスペックがひくくて動作が重たくなりがちなのでできるだけ軽い処理を教えていただきたいです。
説明不足ですみません。。
（ANN） 2018/02/01(木) 14:46
（マナ） 2018/02/01(木) 21:40
こんばんは！ 今はコードがちょっと書けないですけど、 そのシートのチェンジイベントに 上から順番にみてtrueだったら転記 でいいんじゃないんですか？ 配列数式の公式みたいな例の上から詰めるあの式でも いい様な？ bookを開く開かないは別として 値だけなら右辺と左辺を=で結べばいいです なんか中途半端な回答で申し訳ないですけど なんとかなりますでしょうか？ また、考え方はこんな感じでいいでしょうか？ （SoulMan） 2018/02/01(木) 22:11
SoulManさん＞そうですよね！考え方ありがとうございます。
本来であればループで式を作って。のほうがいいのかなとか思ったのですが、なかなかうまくいかず・・・
マクロを設定したエクセルに関数で振り分けして、＝で結ぶのが作業が軽そうですよね。
転記元エクセルの動作が不安ですが・・・・・。
もしもっと良い式あれば教えてください。
よろしくお願いいたします。
（ANN） 2018/02/02(金) 09:46
自分もつかえるかな～とおもって↓のコード書いて、テストしてみたんですが
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox (Target.Address)
End Sub
Msgbox発動しなかったです。Excel君からみれば、セルの値変えてるわけじゃないから検知しないんですかね・・・あっテスト環境は（Excel2013/win7)です
（もこな２） 2018/02/02(金) 10:51
ユーザーフォームで特定のコントロールを一括処理する要領で 全部のチェックボックスの状態を見て、Trueになったら横の情報を転記みたいなことができないかな？ と思ってあちこち調べたりあがいたりしてみたんですけどなかなか進展しませんでした……。 簡単そうに見えて結構難しいですね、これ。
ちなみに、チェックボックスはActiveXコントロールでよかったでしょうか？ （わをん） 2018/02/02(金) 13:30
コントロールの書式設定に「リンクするセル」という項目があり、これを指定すると、チェック１つがセル１つに対応するようになります。こうしておけば、どの行のチェックなのかマクロで判断できるようになります（Worksheet_Changeも使えるようになります）。チェックボックスはセルに縛られないオブジェクトなので、こうでもしないと区別付かないのでは？
そして、チェックする度に追加ではなく、一通りチェックON/OFFした後に、ボタンでも押すと、ONなものだけ追加するようなマクロにするのが自然かと思いますよ。
（???） 2018/02/02(金) 13:54
Worksheet_Changeは数式の結果が変わるみたいに、値が書き換えられないものはスルーされるから、リンクは数式の一種としてあつかってるのかな～とおもったんですけど。
（もこな２） 2018/02/02(金) 14:12
私も今Excel2010で試してみたんですけど、Worksheet_Chenge動かないみたいで……？
まあでも、やっぱり???さんご提案のように、とりあえず最初に転記したい情報を区別して 後で一括処理のほうがいいと思いますよ。 コードの書き方なんかも簡単になると思いますし、重いから必要なデータを別ファイルにしたい、 というならなおさら。 ちょっとだけ考えてみてくださいな。 （わをん） 2018/02/02(金) 14:43
また、いくつかの条件（作業列つかうとか、管理番号の重複不可とか）はあるけど、RANK関数でもできそう。
＜↑こちらはちょっと調整中なので次投稿へ＞
（もこな２） 2018/02/02(金) 15:35
「転記用別エクセル」シートのB、Cを作業列として使用
（３）B２セルに「１」と入力して必要なだけ下にフィルして連番を作成。
（４）C2セルに「=MATCH(B2,転記用別エクセル!F:F,0)」と入力して必要なだけ下にコピー
（５）A2セルに=IFERROR(INDEX(転記用別エクセル!B:B,MATCH(B2,転記用別エクセル!F:F,0),1),"")
でいけるはず。
（もこな２） 2018/02/02(金) 16:10
そうなると、チェックの度に動作させるには、「マクロの登録」を使わないとですね。どのチェックボックスでも１つのマクロにしておいて、Application.Caller でどれを操作されたか調べる事ができます。 そこで例えば、ActiveSheet.CheckBoxes(Application.Caller).TopLeftCell.Row を調べれば、何行目のセルかが判るでしょう。
まぁ、OFF時動作も考えると、ボタン押下時に処理するのがお薦めですが。
（???） 2018/02/02(金) 16:22
Application.Callerって初めて知ったんですけどすごいですねこれ……！ Select Caseのコントロール版みたいな感じでとても便利。いいものを知ることができました。
OFF時はどうするのか気になるところですけど……。 後は質問者さんのお悩みが解決することを祈って傍観することにします。がんばってください。 （わをん） 2018/02/02(金) 16:57
こんばんは！
なんか盛り上がってますねぇ汗
ほんとですね チェンジイベット感知しませんね汗
昨日寝ながらチェックの度にBookを開いても忙しいし、なんかややこしいなぁと思ってました。
どうしようかなぁと考えていたんですけど、ダブルクリックぐらいが一番現実的かなと汗
ということでダブルクリックで書いてみました。
後、Bookも開いているのが条件です。
開く開かないは別でトピを立てて頂くとして初歩的にはこんな感じでどうでしょう？
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MyA As Variant
Dim MyArry() As Variant
Dim wb As Workbook
Dim MyBook As Workbook
Dim MyFlg As Boolean
Dim i As Long
Dim k As Long
Cancel = True
'転記用別エクセル.xlsx が開いているか調べて
For Each wb In Workbooks
If wb.Name = "転記用別エクセル.xlsx" Then
MyFlg = True
Set MyBook = wb
End If
Next
If MyFlg = False Then
MsgBox "転記用別エクセル を開いてから実行してください"
Exit Sub
End If
'開いていたらデータをMyAに取得
MyA = Me.Range("A1").CurrentRegion.Value
k = 1
ReDim MyArry(1 To UBound(MyA, 2), 1 To k)
For i = LBound(MyA, 1) To UBound(MyA, 1)
'リンクセルが TRUE だったら
If StrConv(MyA(i, 3), 1) = "TRUE" Then
MyArry(1, k) = MyA(i, 1)
k = k + 1
ReDim Preserve MyArry(1 To UBound(MyA, 2), 1 To k)
End If
Next
With MyBook.Sheets("Sheet1")
.Cells.Clear
.Range("A1").Resize(UBound(MyArry, 2), 1).Value = Application.Transpose(MyArry)
End With
Set MyBook = Nothing
Erase MyA, MyArry
End Sub
（SoulMan） 2018/02/02(金) 20:13
それから配列の公式みたいな式ですけど一応 チェックボックスというBook名で試してみました。 Book名とかは適当に応用してください。 =IF(SUM(([チェックボックス.xlsm]Sheet1!$C$1:$C$5=TRUE)*1)<ROW(A1),"", INDEX([チェックボックス.xlsm]Sheet1!$A$1:$A$5,SMALL(IF([チェックボックス.xlsm]Sheet1!$C$1:$C$5=TRUE,ROW($A$1:$A$5)),ROW(A1)))) （SoulMan） 2018/02/02(金) 20:31
これを踏まえると、実際のデータがどの程度あるのかによりますし、質問者さんのおっしゃる「重い」がどの程度かわからないですけど、関数のほうが安牌じゃないですかね・・・
（もこな２） 2018/02/02(金) 20:54
（ANN） 2018/02/08(木) 13:15
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.