- ベストアンサー
エクセルVBAでかんたんなデータ入力
mar00の回答
Sub Macro1() Dim INP As Integer, INP2 As Integer For INP = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 11 Range(Cells(INP, "B"), Cells(INP + 10, "B")).Copy myRow = Cells(Rows.Count, "D").End(xlUp).Row + 1 Range("D" & myRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Application.CutCopyMode = False For INP2 = 7 To 12 Cells(myRow, INP2) = Cells(myRow, INP2) / 10 Next INP2 Next INP End Sub こんな感じでしょうか。
関連するQ&A
- ExcelのVBAについて
ExcelのVBAについて VBA全くの初心者です。 以下のような処理を行いたいのですが、どなたかご教授をお願いします。 以下のように支店(1)～(3)のシートがあります。 １．入力シートに調べたい商品Ｎｏ・商品名・備考を入力する（複数行あり） ２．マクロを実行すると、商品Ｎｏを検索対象として支店(1)～(3)シートをチェックし、 一致しない行を不一致データシートに出力する もう一つ別のマクロで、 １．入力シートに調べたい商品Ｎｏ・商品名・備考を入力する（複数行あり） ２．マクロを実行すると、商品Ｎｏを検索対象として支店(1)～(3)シートをチェックし、、 一致する行を一致データシートに出力し、Ｄ列に対象データがあるシート名を表示する ※可能でしたら、Ｅ列に対象データがある行番号も表示する -------------------------------- シート名:支店(1) Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ０１１ 商品Ａ 備考Ａ ００９ 商品Ｂ 備考Ｂ ０１５ 商品Ｃ 備考Ｃ -------------------------------- シート名:支店(2) Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ００８ 商品Ａ 備考Ａ ０２３ 商品Ｂ 備考Ｂ ００４ 商品Ｃ 備考Ｃ -------------------------------- シート名:支店(3) Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ００７ 商品Ａ 備考Ａ ０３３ 商品Ｂ 備考Ｂ ０１８ 商品Ｃ 備考Ｃ -------------------------------- シート名:入力シート Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ※ここに複数行入力する -------------------------------- シート名：不一致データシート Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ※ここに出力される -------------------------------- シート名：一致データシート Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ※ここに出力される
- 締切済み
- Visual Basic
- Ｅｘｃｅｌ 同じデータを入力出来ないように。
こんにちは。 教えて頂きたいのは、データの重複を避ける方法です。 シートのＡ列に番号（英数字）を入力します。 この番号は、ランダムに振ります。 Ｂ列以降に個人のデータを入力します。 Ａ列の番号は、先に説明したとおりランダムなので、 ダブって同じ番号で、別の人を登録してしまう事があります。 色々と方法は有るでしょうが、単純にＡ列のセルに、 番号を入力する→既に使っている番号→入力できない。 或いは、エラーになる等、何か「簡単！」な方法は有るでしょうか？ --- たくさんの回答を頂いた場合、全ての方にお礼を送る事が出来ないかも知れません。 申し訳ありません。
- ベストアンサー
- オフィス系ソフト
- エクセルでの数値入力で
こんにちは。 エクセルで数値を入力する場合に,その入力したセルの表示を条件によって小数点以下の桁数を変えたいのです。 例えば，入力セルがB4だとし，B4に 12.8 を入力したとき， A1が1のときはB4の表示は 12.80 （小数点以下2桁まで表示） A1が2のときはB4の表示は 12.8 （小数点以下1桁まで表示） としたいのです。直接入力するセルの表示なので,関数は使えず,条件付書式では，表示形式が使えません。 また，マクロは使わずにやりたいのです。ワークシートは，エクセルにも不慣れな初心者が入力することを想定して作っています。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでのデータ入力について
質問は２つあります。 １．セルA1からA5まで，違う文字データが入っている。 全てのデータの頭に同じ文字を「簡単に」入れたい。 置換を使って「*」→「A*」とやろうとしましたが， （全てのデータの頭に「A」を入力したいとする） データそのものが，「A*」に変わってしまいました。 ２.セルA1からA4まで順番に "a-1","a-2","b-1","b-2"という４つのデータがはいっている。 これを，ドラッグで（オートフィル？），引っ張ったときに， 自動的に，"c-1","c-2","d-1","d-2",,,,,,, と入力したいんですが，出来ますか？ 以上2点，片方だけでもいいので，分かる方がいらっしゃったら， よろしくお願い致します。：）
- ベストアンサー
- オフィス系ソフト
- VBAで入力数値について
Excel VBAでTextBoxに入力された数値が整数か小数か判定し、 小数の場合は、下記のようにしたいのですが、どのようにしたらよいのでしょうか。 TextBoxに入力された数値が、 （１）整数の場合・・・Ａ＝TextBox1.Value （２）小数点第一位の場合（1.5など）・・・Ａ＝TextBox1.Value＊10 （３）小数点第二位の場合（1.55など）・・・Ａ＝TextBox1.Value*100 どなたかご教授願います。
- ベストアンサー
- Visual Basic
- ExcelデータをPowerPointに・・・
●ExcelのＡ列に質問事項、Ｂ列に回答、Ｃ列に備考が入力してあるデータがあります。 PowerPointには３つのテキストボックスがならんでおり、それぞれにＡ列の質問事項、Ｂ列の回答、Ｃ列の備考をいれていきます。 Excelデータを見ながらひとつひとつ入力すればかなりの時間がかかってしまいます。なのでExcelデータを利用して簡単にPowerPointに入力（エクスポート）する方法はないでしょうか？？？
- 締切済み
- オフィス系ソフト
- Excelでデータの並べ替えについて
例えば、A1からA10まで名前がランダムに入力されているとします。 そのデータを昇順に並べ替えた状態でB1からB10まで表示させる方法はありませんでしょうか？ A列のデータが変更されるとB列に反映されるようにしたいのですが。
- ベストアンサー
- Excel（エクセル）
- エクセルに入力したデーター並び替え方法。
ウインドウズ７を使用しています。 オフィス2010になります。 エクセルの表にランダムに文字や数字を入力したその後にデーターの並び替えをしたいのですが、 古いオフィスでやっていたので、新しいバージョンでうまくデーターの並び替えが出来ません。 ランダムに入力した文字や数字を、揃えたいのです。 例えば A列に 都道府県 B列に 月日 C列に金額等をランダムに入力し、都道府県でまとめて それに伴って 月日・金額を一度にまとめてデーターの並び替えをしたいのです。 並び変えて各都道府県別の集計が出るようにしたいのです。 都道府県 月日 金額 大阪 6/2 3.000 和歌山 6/4 5.000 京都 6/8 8.000 奈良 6/9 5.000 大阪 6/10 8.000 奈良 6/11 6.000 もっと長いデーターになりますが以上のようなデーターを下記のようにしたいのです。 都道府県 月日 金額 大阪 6/2 3.000 大阪 6/10 8.000 大阪小計 11.000 奈良 6/9 5.000 奈良 6/11 6.000 奈良小計 11.000 和歌山 6/4 5.000 のように並び替えをしたいと思っています。 わかりづらいと思いますがご指導のほどよろしくお願いいたします
- ベストアンサー
- Windows 7
- EXCEL 同一データ入力したいです教えて下さい。
A1セルに入力したデータをB1にも入力できるようにしたいです教えて下さい、コピー貼り付けを使わず関数を使って出来るようにしたいです。お願いします
- ベストアンサー
- オフィス系ソフト
お礼
出来ました！ありがとうございました！！ 式の解説・・・ お願いできますか？