[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
482: デフォルトの名無しさん [sage] 2018/01/25(木) 18:45:37.13 ID:/25QAGMM >>477 RaiseEventを使う http://mevius.5ch.net/test/read.cgi/tech/1432173164/482
483: デフォルトの名無しさん [sage] 2018/01/25(木) 19:01:57.40 ID:KaDWqQ6/ >>482 お忙しいのにみなさんありがとうございます ちょっと詳しく説明すると、こんな感じです 左のsheetの表は一項目につき3段、その3段目の情報で仮にA,Bが記載されてある色つきのセルの情報のみを抜き出し、右にある別sheetの表に反映させたいのです 分かりづらかったらすいません どのように組めば行けるのか、詳しく教えて頂くとありがたいです https://i.imgur.com/M5bti06.jpg http://mevius.5ch.net/test/read.cgi/tech/1432173164/483
484: デフォルトの名無しさん [sage] 2018/01/26(金) 08:27:26.24 ID:zry4uQ/L 指１本で核ボタン押せる http://mevius.5ch.net/test/read.cgi/tech/1432173164/484
485: デフォルトの名無しさん [sage] 2018/01/26(金) 08:28:00.51 ID:zry4uQ/L >>484 スマン激しく誤爆 http://mevius.5ch.net/test/read.cgi/tech/1432173164/485
486: デフォルトの名無しさん [] 2018/01/26(金) 09:48:49.15 ID:zry4uQ/L おわび 御貴兄たち、何卒添削お願いします。変数colとかrowのほうが良かったな Const OFFSET_X = 1 Const OFFSET_Y = 1 Const BLOCKS_Y = 3 Const WIDTH = 6 Const HEIGHT = 6 Private Sub CommandButton1_Click() Dim src As Worksheet Dim dst As Worksheet Dim x As Integer, y As Integer Dim des_x As Integer, des_y As Integer Set src = ThisWorkbook.Sheets("sheet2") Set dst = ThisWorkbook.Sheets("sheet3") dst.Cells.Clear des_x = 1 + OFFSET_X des_y = 1 + OFFSET_Y For y = 1 + 3 To HEIGHT * BLOCKS_Y Step 3 For x = 1 To WIDTH If src.Cells(y, x + OFFSET_X).Value <> "" Or _ src.Cells(y, x + OFFSET_X).Formula <> "" Or _ src.Cells(y, x + OFFSET_X).Interior.ColorIndex <> xlNone Then 'エラー判定は無し src.Range(src.Cells(y, x + OFFSET_X), src.Cells(y, x + OFFSET_X)).Copy _ Destination:=dst.Cells(des_y, des_x) End If des_x = des_x + 1 Next x des_x = 1 + OFFSET_X des_y = des_y + 1 Next y End Sub http://mevius.5ch.net/test/read.cgi/tech/1432173164/486
487: デフォルトの名無しさん [sage] 2018/01/26(金) 10:05:41.40 ID:cX+GX3c5 これ色付き以外のセルにも文字列は入ってるんだよな？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/487
488: 486 [sage] 2018/01/26(金) 11:04:59.89 ID:HJtMv0FJ あー〜スマン >表Aのセルの色を付けると同時にB表のセルのイロを変える この仕様を見逃してたわ 見なかったことにしてくれ http://mevius.5ch.net/test/read.cgi/tech/1432173164/488
489: デフォルトの名無しさん [sage] 2018/01/26(金) 19:09:34.97 ID:o3fzSqcU >>487 入ってます 欲しいデータは1色で統一されてますが ちなみに他に文字が存在しており、それらはほかの色で存在しています >>488 お手数お掛けしております ほんとにありがとうございます 色で判断をなくして、(条件で変えるので)>>483に書いてある欲しいデータ4種類を転記させるものでも良いのですが、難しいでょうか http://mevius.5ch.net/test/read.cgi/tech/1432173164/489
490: デフォルトの名無しさん [sage] 2018/01/26(金) 19:28:54.13 ID:s5W3X/Fy できると思うけど、見本の写真がよく見えない。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/490
491: 490 [sage] 2018/01/26(金) 21:06:22.97 ID:K81AssZX パソコンで見たら見えた。 これ、変更したところだけ反映したいの？ それとも、元表の3行目全てを反映したいの？ というか、データだけなら=で結べばいいのでは？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/491
492: デフォルトの名無しさん [sage] 2018/01/26(金) 21:17:19.09 ID:o3fzSqcU >>491 そこまでして見ていただいて申し訳ないです 三段目だけを反映させたいのですが、その手書きの表の列、行ともに結構長い表なのです 手っ取り早く一瞬で作れたらと思って質問した次第です http://mevius.5ch.net/test/read.cgi/tech/1432173164/492
493: デフォルトの名無しさん [sage] 2018/01/26(金) 21:21:20.15 ID:Vo+OzJVu Excel VBAスレいけば寄ってたかってみんなで教えまくってくれんじゃね？行けば？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/493
494: デフォルトの名無しさん [sage] 2018/01/28(日) 00:24:57.82 ID:NUwCXosq >>493 いまはゴキブリが湧いてるからあっちは行かない方が良さそう http://mevius.5ch.net/test/read.cgi/tech/1432173164/494
495: 490 [sage] 2018/01/28(日) 01:47:10.17 ID:xXGJMKWE >>492 結構長いというけど、どれくらい？ 数十列数十行くらいで、1回だけなら右にオートフィルして、行ごとコピペするのが早いと思う。 =で繋ぐだけなら1回やっておけば、あとは自動でかわる。 マクロでやるとしても、数式で=を入れればいいのか、値を持ってくるようにした方がいいのか。 表の範囲指定はどうするか？ current.regionか、usedrangeか、直接指定するか。（元の表に罫線が引いてあるか、空欄があるかで変わってくる） http://mevius.5ch.net/test/read.cgi/tech/1432173164/495
496: デフォルトの名無しさん [sage] 2018/01/28(日) 14:19:41.49 ID:Erw8GBm0 数式だって絶対参照、相対参照をきちんと意識して書けばRange=数式でアドレスに併せて変えてくれるから1回の代入で終わる。 以外と知らずに1セルずつ代入する人もいるけど。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/496
497: デフォルトの名無しさん [sage] 2018/01/28(日) 14:51:25.14 ID:fbEFMaxh >>495 3段目に毎回同じ文字がくるとは限らず、最低3種類の文字がくるので、とりあえずif分使って作成しました 横に日数1年分、縦に各項目50程です 絵にある通り、全く同じ表をコピペして使いますが(線あり）、ほんとは転記先の表は1段で済ませたい所でした 日替わりで最低3種類のうちのひとつが返ってきたらいいので わかりづらくてすいません http://mevius.5ch.net/test/read.cgi/tech/1432173164/497
498: デフォルトの名無しさん [sage] 2018/01/28(日) 14:52:48.13 ID:fbEFMaxh >>496 そうなんです やり方を知らないので今は1セルずつ代入しています http://mevius.5ch.net/test/read.cgi/tech/1432173164/498
499: 490 [sage] 2018/01/28(日) 17:27:50.85 ID:z3VzjyNA >>498 fast-uploader.com/file/7072682105190/ 目的のものと全然違うかもしれないけど作ってみました。 データの最初のセルだけは自分で指定してください。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/499
500: 490 [sage] 2018/01/28(日) 17:29:06.20 ID:z3VzjyNA パス 0128 http://mevius.5ch.net/test/read.cgi/tech/1432173164/500
501: デフォルトの名無しさん [sage] 2018/01/28(日) 18:08:34.70 ID:745uG8BQ >>499 乙です 老婆心ながらアップする前に「ブックの検査−ドキュメント検査」したほうがよろしいかと。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/501
502: 499 [sage] 2018/01/28(日) 18:41:56.85 ID:UOLejiJq サンクスです。 渡辺明さんになるところだったか。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/502
503: デフォルトの名無しさん [sage] 2018/01/28(日) 21:37:23.53 ID:4m06L1KL >>499 見れないのですが、消されたのでしょうか http://mevius.5ch.net/test/read.cgi/tech/1432173164/503
504: デフォルトの名無しさん [sage] 2018/01/28(日) 23:12:38.58 ID:Erw8GBm0 >>498 やり方も何も、例えばA1からA列に1、2、3、・・・と入力されてるとしてRange("B1:B10").Value="=A1"を動かしてみな。 全部A1を参照したいならRange("B1:B10").Value="=$A$1"とする。 本当はValueではなくてFormulaだけどValueでもちゃんと相対参照してくれる。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/504
505: 499 [sage] 2018/01/28(日) 23:23:45.53 ID:9bi4pzKP fast-uploader.com/file/7072704922415/ パス 0128 http://mevius.5ch.net/test/read.cgi/tech/1432173164/505
506: デフォルトの名無しさん [sage] 2018/01/29(月) 00:30:08.47 ID:flk0qVid >>504 >>505 みなさん、無知ですみません ほんとに助かります ありがとうございます >>505 ひとまずダウンロード致しましたので明日内容を確認します お時間割いて作っていただいて、ただただ感謝です おやすみなさい http://mevius.5ch.net/test/read.cgi/tech/1432173164/506
507: デフォルトの名無しさん [sage] 2018/01/29(月) 00:48:46.52 ID:rWIIKeXW 下から5行くらいにtext ってあるの、valueに直した方がいいかも。 textでも問題ないかもしれないけど。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/507
508: デフォルトの名無しさん [sage] 2018/01/29(月) 08:59:53.06 ID:flk0qVid おはようございます 昨日ダウンロードさせてもらったファイル開かないのですが、どうやったら開きますか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/508
509: デフォルトの名無しさん [sage] 2018/01/29(月) 18:12:06.82 ID:acQcDZwj エクセルのバージョンは？ 当方2013で開けましたよ。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/509
510: デフォルトの名無しさん [sage] 2018/01/29(月) 21:31:37.99 ID:flk0qVid >>509 2010です すいません、どうやって開きました？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/510
511: デフォルトの名無しさん [sage] 2018/02/03(土) 14:43:09.33 ID:xQQ90zOV プログラマですがvbaの初心者です。 C,java,lisp,python 基本的な言語とその意味論はだいたい知ってます。 vbaで書籍を探すと、大抵業務問題の解決という文脈で本が書かれているようですが 純粋に言語的な機能を抽出した言語仕様、あるいはリファレンスに相当するものを求めています。 そのような書籍のうちもっとも簡潔に記述されているような本はないでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/511
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 491 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.014s