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