0001名無しさん＠そうだ選挙にいこう2019/05/02(木) 08:46:03.35
>>949
すごいね、たったこれだけのことで
相手の素性が分かっちゃうモノホンのエスパーさんだったとは…
俺も少しばかりそのエスパーの心得ってのがあったから
>>943をゴミカスクズ糞汚物扱いしてやったんだけど
これってお前が言ってることと何か違うの？
もしかしてとは思うけど…その…アナタ…
.....、......ｵｸｽ..ﾘ.、、、
........ とか..キメ.......たり....してませんよね？；
なんかね、少し...ちょっと.....思っただけ...なんですけど…＾＾；；；；；；
>>950
そうだったんですね
ま誰にも間違いはありますから
次スレ建ててから死んでくださいね >952
＞相手の素性が分かっちゃうモノホンのエスパーさんだったとは…
＞俺も少しばかりそのエスパーの心得ってのがあったから
ってかこのスレなら数文字で伝わるでしょ
＞>>943をゴミカスクズ糞汚物扱いしてやったんだけど
それに意味がない
＞その・・ ｜ .....ｵｸｽ..ﾘ.、、
三点リーダと半角読点、句読点、他諸々統一しないとダメ
自分に自信がなさすぎる。そんな事では
「あれ、この人こそ統一性のない人なのかな？」と思われるだけ
殺したいときはもっと殺意をもって発言、過ちが気になるだけなら端的にレス >>953
A2=G4
これをコピペしていけばいいんじゃないの >>952
どうしても教えて欲しい事がある
＞>>943をゴミカスクズ糞汚物扱いしてやった
これはどういう感情なの？
俺も恐らく発達障害だから、君の気持ちが良くわからないんだ
「ゴミカスクズ糞汚物扱いしてやった」
ことで君は自分の承認欲求が満たされたり、
人間のランク的な物が上がったりするの？
まぁ別に答えなくてもいいよ、これはただの俺の知識の一つになるだけだ 0957名無しさん＠そうだ選挙にいこう2019/07/27(土) 16:36:54.46
>>953
こういう質問は答えにくい。
やりたいことの一例が上がっているだけなので。
その3つの表だけでいいのか、沢山ある表を処理したいのか。同じ表の担当者は必ず同一なのか、そうでない場合があるのか。
VBA使わずに、A2に=G4 と入力して、それをA10と、A14にペーストすれば良いのでは？ >>957
すみません説明不足でした
・画像では３例の表ですが、実際は３００件以上あります。
・各表は必ず同一の担当者です。
・表と表の間の行数は一定ではありません
・毎日件数が多くなるためＶＢＡで処理したいです >>953
>>958
Sub foo()
最終行 = Cells(Rows.Count(), 7).End(xlUp).Row
For i = 1 To 最終行
If Cells(i, 1).Value = "納品日" Then
Cells(i - 1, 1).Value = Cells(i + 1, 7).Value
End If
Next
End Sub
飲みながらだとこういう単純なのが意外とキツイなｗ
>>952君は回答ないけど、無理なのかな？ 一応言っておくと一行目のA7に「納品日」があるとエラーになるけどそれはなんの分岐もしていないぞ
0961名無しさん＠そうだ選挙にいこう2019/07/27(土) 17:33:39.09
>>959
こんな一瞬でできるようなのがキツいとか
こんなハゲとはいっしょに飲みに行きたくないな お、なんだなんだ
文句だけ付けて自分は何も案出さないという職場で最も嫌われる典型がやってきたぞ
>>961
むしろハゲにする方法教えろ
今脱毛してるんだけど、あごひげだけ脱毛終わらないんだよ
脇とか色々終わった いつもならvbaのコード最適化しろやっていうとこだけどお前より俺の能力の方が高いからどうでもいいわ
マジであごひげなくならねぇ
乳毛も脇毛もなくなったけど肝心のあごひげなくならないんだよどうすりゃいんだよ
スレの立て方が分かりません。…
もっと有益な会話をしたいです！VBA初心者の方いませんか？
>>965
いねーよ、ここは達人の集まりだ
vbaってのは要するにExcel作業の自動化
Excelで手作業を繰り返している会社なら英雄になる
「a1とb1をc1に自動的に出すだけ。それが100シート」
ただし、多大な損失が生じる可能性がある
「言い忘れたけど合計が偶数になると別ブックに転記する必要があるんだよね〜」
逆に、そもそもExcelを使わない大企業では意味がない >>965
ここは質問スレであって会話なら雑談スレいけ
質問に関連する事ならいいが、脱線しすぎは迷惑になる
>>966
カッコいい！そしてスレ立てthx 雑談スレいくわ。すまんかったね。
ありがとうございます！
0971名無しさん＠そうだ選挙にいこう2019/07/28(日) 16:17:31.33
あと30レス雑談してから消えろよｗ
0974名無しさん＠そうだ選挙にいこう2019/07/28(日) 18:21:15.26
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 中級
【4 VBAでの回答の可否】 可
あるシートを新規別ブックにコピーしてそれにファイル名をつけて保存する、ということを
やりたくて試行錯誤しています。
一応、コピーして保存はできたのですが、元シート上にあるコマンドボタンまでコピーされて
しまいます。
コマンドボタンをコピーさせない方法ってないでしょうか？
今は
mySt.Copy
ActiveWorkbook.SaveAs ****
という単純なコードです。これを書き換えて、コマンドボタン以外だけをコピーとしたいです。
よろしくお願いいたします。
>>974
mySt.Copyの次の行にボタン削除を入れる
シートコピーと言うのはシート自体をコピーするんだからそこにあるものは当然全てコピーされる 0976名無しさん＠そうだ選挙にいこう2019/07/28(日) 19:49:22.01
>>975
具体的には
activesheet.Shapes.range("Button 1").delete
か
For Each eShape In ActiveSheet.Shapes
eShape.Delete
Next
を入れとく 0978名無しさん＠そうだ選挙にいこう2019/07/28(日) 20:08:29.47
そうだね
ボタン名がはっきりわかってピンポイントで消したいなら上で
なんでもいいからデータだけ残したいの！という場合は下
いや、数が少ないなら上、多いならForでボタンだけ消せばよい
0980名無しさん＠そうだ選挙にいこう2019/07/28(日) 20:33:42.05
Forで回してShapeがボタンかの判定を入れたらもっといいね
初心者だとしたらコピー後のボタン名をちゃんと調べられるかなと思って下のも用意した
あれ？！俺はどうやって調べたんだっけ もう忘れたｗ
>>976よく見たら上も間違ってるわ
ともかく数が少ないなら直指定でもいいし、多い又はとにかく全部消したいならForで回せばいい >>974
新規ブックにコピーディスティネーションじゃダメなんかい! 0984名無しさん＠そうだ選挙にいこう2019/07/30(火) 20:42:34.50
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 入門中
【4 VBAでの回答の可否】 不可
教えてください。
B列に日付、C列からH列まで、品目ごとの買物金額が入力されている100行くらいの表があるとします。
A1に日付を入力すると、A2に、その日の買物の合計金額が出るようにしたいです。
=SUMIF(B1:B100,A1,C1:H100)
↑
これではダメみたいなんです。どうすればいいでしょうか？
>>985の続き
もし、B列に日付の重複がないことが確実であるならば、日付の一致する行のC列〜H列の合計を
出すとして、SUMIF関数を使わず、SUM関数、OFFSET関数、RESIZE関数を組み合わせて
できそうだけど、ただいま試行錯誤中。 >>984
=SUMPRODUCT((B1:B100=A1)*C1:H100,) 0988名無しさん＠そうだ選挙にいこう2019/07/30(火) 22:16:36.90
カンマがいらないと思うんだがバージョンが違ったらそれでも動くんか
しかしsumproductを使ったらsumifもcountifも無駄な知識だなと思ったが
この二つはワイルドカードが使えるというアドバンテージがあるんだな
>>987の後ろのカンマはゴミ
タッチミスかなんか SUMPRODUCTでこんなこともできるのね。
”正解”などと書いた自分が恥ずかしい orz
SUMPRODUCTは便利だけど直感的組める配列数式使っちゃうことが多いわ
0995名無しさん＠そうだ選挙にいこう2019/07/31(水) 12:43:07.38
よろしくお願いします。
あるブックの2つのシートに、1つずつ表があります。
どちらの表にも同じ「会員番号」という列があるのですが、
これをもとに、
・AシートとBシートの両方に入っている人
・Aシートにしか入っていない人
を一目でわかるようにしたいです。
なにかいい方法はないでしょうか？
一目でわかるようにするの意味がハッキリしないが
VBA使わないと面倒だと思う
>>995
作業列を使うか、「会員番号」の列に対する条件付き書式でいけると思う。
どちらのシートも 会員番号の列はＢ列 と仮定して、
作業列を使う方法→Ａシートの作業列をＣ列と仮定→ＡシートのC2セルに計算式
=COUNTIF(SheetB!$B:$B,B2)
と入力して、下方向に必要なセル範囲までドラッグコピーする。
シートBにも存在する会員番号があれば、その個数がC列に表示される。なければ０が表示される。
条件付き書式を使う方法（条件は上に同じ）シートBにも同じ会員番号があるとき、当該セルを黄色塗りつぶす場合
B2〜B列の最下行までのセル範囲を選択する→条件付き書式→新しいルール→数式を使用して〜
→数式の欄に =COUNTIF(SheetB!$B:$B,B2)>0 と入力→[書式]ボタンをクリック→
塗りつぶしのタブをクリック→黄色を選択→[OK]をクリック→[OK]をクリック→[適用]をクリック→[OK]をクリック
黄色になってないセルの会員番号はシートBには存在しないということを示します。
こんなのでいかが？ただし、この設定だけでは「Ｂシートにしか入ってない人」はわかりません。 0998名無しさん＠そうだ選挙にいこう2019/07/31(水) 15:55:51.14
うめ
0999名無しさん＠そうだ選挙にいこう2019/07/31(水) 15:55:56.51
うめ
1000名無しさん＠そうだ選挙にいこう2019/07/31(水) 15:56:04.80
うめ
10011001Over 1000Thread
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 90日 7時間 10分 2秒
10021002Over 1000Thread
5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php