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

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

[[20200511091728]]: #score: 5499; @digest: 9efefede101625fac9001955f68d2160; @id: 83477; @mdate: 2020-05-11T11:00:49Z; @size: 4249; @type: text/plain; #keywords: 亜鉛 (46432), ロム (40542), 注明 (32704), ク商 (24371), 鉛3 (22862), 細a (22182), 月チ (16883), 鉄ク (15497), 真鍮 (15241), darea (13442), 名発 (11530), 9744 (10976), 口伝 (7748), 伝承 (7748), 伝伝 (7380), クボ (6609), 発注 (5708), ム・ (4736), 表イ (4187), 明細 (3984), 9745 (3315), をaa (3289), ク入 (3258), レ点 (2916), チェ (2784), ム2 (2564), ェッ (2522), topleftcell (2279), 設置 (2273), 商品 (1801), ボッ (1786), 稚拙 (1615); 『チェックボックスからデータ反映について』（まきりん）
庶務関連の発注作業でEXCELを使用しています。今までアナログでやってきているため、今さらですが EXCEL関数やVBA勉強中となります。 A列に品名が50ほど記載があります。今までそこから発注商品を探し、をAA列にコピーするよう口伝伝承していました。 1つ2つの発注であればいいのですが、増えるとよくコピー間違いが起こっています。 1.そこで、A列の商品名をB列に移動させる 2.空いたA列にチェックボックスを作成する 3.A列のチェックボックスにチェック入れた商品をAA列に表示させる ※このうち、3をどう作成したらいいのか、分かりません。 A列のチェックボックスにチェックする。 AA列に表示させるのは恐らくセル指定することでできそうなのですが。。例えばクロムをレ点した場合、セルAA3にクロムと表示させるのではなく AA1に表示できないか。チェック商品名発注明細 A B C AA 1 □ 鉄クロム 2 □ 亜鉛 3 レクロム関数とかでなく、マクロとかの方が、実現可能なのでしょうか? ＜使用 Excel:Excel2010、使用 OS:Windows10 ＞ ---- 追記ちょっと稚拙かもしれませんが、下記のように少し進みました。 Sub Macro3() ' ' Macro3 Macro ' A列をレ点した場合、D列に"TRUE"を表示させるようにリンク設定する E列にD列がTRUEであれば、商品名を表示するように関数を設定する下記マクロで値貼り付け+空白セルを無視するにすると、どうやらコピーできそうです。 ' Range("E1:E50").Select Selection.Copy Range("AA1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=True, Transpose:=False Application.CutCopyMode = False Range("A1").Select End Sub その中で、もう1つ表の作りになっています。このコピーでもいいのですが、貼り付けた際、毎回過去月のデータも入ってきます。セルの上部に当月の表示を作成するとして、そこから当月だけのデータを AA列に貼り付けることは可能でしょうか。表イメージ 4月チェック商品名発注明細 A B C AA 1 □ 鉄クロム 2 □ 亜鉛 3 レクロム・・・ 5月チェック商品名発注明細 A B C AA 1 □ 鉄亜鉛 2 レ亜鉛 3 □ クロム・・・ 6月チェック商品名発注明細 A B C AA 1 レ鉄鉄 2 □ 亜鉛クロム 3 レクロムすいませんが、ご教授お願いします。（まきりん） 2020/05/11(月) 11:02 ---- 1.A列にフォームコントロールのチェックボックスを1つだけ配置。（この時、図形枠の左上がセル枠からはみ出ないようにする） 2.下記コードを標準モジュールにコピペ。 3.配置したチェックボックスを右クリックして「マクロの登録」から「sample」を選択して「OK」 4.チェックボックスを配置したセルを必要数分A列にコピペ。 '**以下コピペ用コード Sub sample() Dim Cb As Excel.CheckBox Dim dArea As Range Dim Rng As Range With ActiveSheet '発注明細データを一旦削除 Set dArea = .Range("AA1", .Range("AA" & .Rows.Count).End(xlUp)) For Each Rng In dArea If Rng.Value <> "発注明細" Then Rng.ClearContents Next Rng 'チェックボックスの内容転記 For Each Cb In .CheckBoxes If Cb.Value = xlOn Then .Range("AA" & Cb.TopLeftCell.Row).End(xlUp).Offset(1).Value = Cb.TopLeftCell.Offset(, 1).Value Next Cb End With End Sub （助六） 2020/05/11(月) 13:44 ---- >2.空いたA列にチェックボックスを作成する A列のチェックボックスを設置するセル位置を教えてください。例. A2〜A50 知らせてくれればマクロで設置します。 >3.A列のチェックボックスにチェック入れた商品をAA列に表示させる チェックボックスをマクロで設置後知らせます。（ピンク） 2020/05/11(月) 19:39 ---- | [A] | [B] | [AA] [1] |チェック|商品名 | 発注明細 [2] | ☑ |鉄 | 鉄 [3] | ☑ |亜鉛 | 亜鉛 [4] | ☐ |クロム | 銅 [5] | ☐ |ニッケル| 真鍮 [6] | ☐ |錫 | [7] | ☑ |銅 | [8] | ☑ |真鍮 | [9] | ☐ | | [10]| ☐ | | [11]| ☐ | | （ピンク） 2020/05/11(月) 20:00 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202005/20200511091728.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ