エクセルの学校：全文検索：Hyper Estraier：チェックボックス

Results of 1 - 1 of about 978 for チェックボックス (0.008 sec.)

[[20240119144744]]: #score: 5499; @digest: 5a2f23a720ad41e99fec17d5fb9de9c4; @id: 96000; @mdate: 2024-01-23T02:31:20Z; @size: 7164; @type: text/plain; #keywords: 前&# (36904), 前名 (16653), 各チ (14358), 列21 (13671), クボ (12666), 10003 (7104), linkedcell (4704), 名前 (3808), チェ (3620), ガナ (3582), 2024 (3571), ボッ (3423), 連性 (3363), ェッ (3279), 前| (3030), リガ (2984), 順不 (2933), 不同 (2911), ムコ (2860), クス (2748), おお (2504), ック (2433), グル (2159), 出先 (2117), フリ (2039), トロ (1950), 別シ (1692), 名簿 (1487), 転記 (1220), ープ (1046), リン (1007), ンク (990); 『チェックボックス』（おおおおお）
チェックボックスにチェックがあるものだけを出力ボタンをおすと別シートに必要データーが転記されるようにしたいのですが、なかなか上手くいきません。 A、C、E列にチェックボックスB、D、F列に名前グループごとに名前を分けており、名前だけを抽出したいのですが、とび列の抽出方法が分かりません。抽出先は別シートのC列21.27.33.39.45.51.57.63.69です。丸投げですいません。＜使用 Excel:unknown、使用 OS:unknown ＞ ---- チェックボックスは2種類ありますけどはっきりさせてください。転記前のデータを示してください。＜使用 Excel:unknown、使用 OS:unknown ＞も記入してください。（IT） 2024/01/19(金) 16:04:39 ---- チェックボックスはフォームコントロールから作成したものです。グループ1 グループ2 グループ3 A列 B列 C列 D列 E列 F列 ✓ 名前 ✓ 名前 ✓ 名前名前名前名前名前名前名前 ✓ 名前 ✓ 名前 ✓ 名前こんな感じの表ですこれのチェックのある名前だけを名簿に転記したいです。（おおおおお） 2024/01/19(金) 16:16:47 ---- >抽出先は別シートのC列21.27.33.39.45.51.57.63.69です。で↑の表との関連性はどうなっているんですか。（IT） 2024/01/19(金) 16:33:41 ---- ＞チェックボックスはフォームコントロールから作成したものです。各チェックボックスのリンクセルは設定されているものとします。 Trueのチェックボックスのひとつ右のセルの値を、別シートのC21から6行毎に書き込みます。 ※アクティブシートの全てのチェックボックスが対象です。 Sub test() Dim shp As CheckBox, n& n = 21 For Each shp In ActiveSheet.CheckBoxes If Range(shp.LinkedCell) Then Worksheets("別シート").Cells(n, "C") = Range(shp.LinkedCell).Offset(, 1) n = n + 6 End If Next End Sub （辰） 2024/01/20(土) 09:58:28 ---- >抽出先は別シートのC列21.27.33.39.45.51.57.63.69です。で↑の表との関連性はどうなっているんですか。（IT） 2024/01/19(金) 16:33:41 選択した名前で名簿を作成したく、複数列の名前を1列かつ指定行に順番に転記転記先は D19フリガナ D21名前 D25フリガナ D27名前 D31フリガナ D33名前 ↓ D67フリガナ D69名前と続いています。 "名前"の部分に文字が入れば後は連動するようになっています。 Excelは2013 OSはWindows10です（おおおおお） 2024/01/22(月) 14:28:07 ---- 意味の確認です。＞選択した名前で名簿を作成したくこの条件の確認です。下の表がSheet1として |[A] |[B]|[C] |[D]|[E] |[F] [1]|グループ1|名前|グループ2|名前|グループ3|名前 [2]|TRUE |〇1 |FALSE |△1 |FALSE |▲1 [3]|FALSE |〇2 |TRUE |△2 |FALSE |▲2 [4]|FALSE |〇3 |FALSE |△3 |TRUE |▲3 [5]|TRUE |〇4 |FALSE |△4 |FALSE |▲4 [6]|FALSE |〇5 |TRUE |△5 |TRUE |▲5 〇△▲は、名前です TRUEは、✓がある、FALSEは、無し状態が上のレイアウトの意味です。別シートへ下記のように並べたいと言う事もあるようは、順不同になるようにしたいですか? 21行目 △2 27行目 ▲3 33行目〇4 39行目 ▲5 45行目〇1 51行目 △5 Sheet1 の縦列の名前が固定人数ならできます。毎月変動するようだと、マクロの変数が可変になるので、それに合うように数値(変数)を調整すれば可能ですかね。であれば、Sheet1の列が何行目迄名前が入っているか教えてください。（あみな） 2024/01/22(月) 15:35:53 ---- 条件がもう一つあります。 Sheet1 を、作成しなおさないといけなくなっても良いかです。どういう意味かといいますと、既にあるチェックボックスとその他のコントロールボタンには名前が入っているのでそれを削除すると、次にチェックボックスを作成してしまうと、名前が変更されるのです。名前定義で既存のチェックボックスを手動で変更もできますが人数が多いと、手間になります。あと、各チェックボックスにマクロを仕込むので登録をしなければいけないので、これをマクロで一括で作成します。なので、チェックボックスを一括で作成するマクロを作り、順不同に対応できるように仕込みますって事です。（あみな） 2024/01/22(月) 15:51:19 ---- 辰さんのマクロに反応が無いようなので、残念。補足説明してみます。 (1)チェックボックスの"リンクセル"を、チェックボックスのあるセルに設定します。 (2)True,Falseが邪魔になるので、フォントを白にしておくとよいでしょう。 (3)testマクロを実行すると（ボタンかなにかに登録しておくとよいかも）、リンクセルの右の名前を別シートに転記してくれます。 (4)もちろん、各チェックボックスに、testマクロを登録してもよいかもしれまえせん。ただし、すべてのチェックが終わっていない段階で名前を転記しても無駄かもしれないので、 (3)のように一括して処理する方法がよいかもしれません。なお、名前の列挙の順番については次のとおりです。 チェックボックスを作成した順番で、For each ... Nextの走査が行われるので、 A列を上から下に作成、次にC列、次にE列と作成してあれば問題ないです。そうでない場合は、名前の順序が狂うかもしれません。（xyz） 2024/01/22(月) 17:52:51 ---- ＞xyzさん補足説明ありがとうございました。私の回答では、(1),(2)について言及しておらず、振り返ると不親切だったように思いましたので、ご説明いただいた事、大変恐縮です。名前の列挙順については、完全に失念しておりました。サンプル作成時、A列上部に作ったチェックボックスをフィルダウン後、各列へコピーしたため、期せずしてご説明通りの挙動になっており、恥ずかしながら全く気付いていなかったのが実情です。＞おおおおおさん力及ばず、お力になれず、すみませんでした。名前の選択順も含め、あみなさんからのご提案で解決へ向かうかと思います。ぜひ、問い掛けにお答えされることをお勧めいたします。（辰） 2024/01/22(月) 20:35:21 ---- 辰さんすみません! ご提案いただいたのに返信もせず…。辰さんのサンプルをコピーさせていただき、私の力不足でああでもないこうでもないとやりながらほかの方のアドバイスもお聞きしようと返信してしまいました…。気を悪くしてしまいすみませんでした。ありがとうございました。 xyzさん、あみなさん明日また挑戦してみます。ありがとうございます。（おおおおお） 2024/01/22(月) 22:07:20 ---- ＞おおおおおさん気を悪くなどしていませんので、どうかお気になさらず。もしリンクセルの設定が良くわからなかったということでしたら、フォームコントロールから配置したチェックボックスを右クリックし、コントロールの書式設定＞コントロールタブ＞リンクするセルに任意のセルアドレスとすることで設定することができます。以下のマクロを利用し、シート内の全てのチェックボックスのリンクセルを設定することも可能ですが、既に配置してあるチェックボックスの左上隅が狙ったセルからはみ出している場合、正しいセルにリンクすることができない可能性がありましたので、「各チェックボックスのリンクセルは設定されているものとします。」とした次第です。 ※一緒に文字色も白色にします。 Sub linked_Cell() Dim shp As CheckBox For Each shp In ActiveSheet.CheckBoxes With shp.TopLeftCell shp.LinkedCell = .Address .Font.Color = rgbWhite End With Next End Sub （辰） 2024/01/23(火) 08:14:59 ---- できました!!!ご協力いただいた皆さんありがとうございました!! （9999） 2024/01/23(火) 11:31:20 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202401/20240119144744.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ