[過去ログ] Excel総合相談所 136 (1002レス)
上下前次1-新
このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
105(1): 2019/08/07(水)15:46 AAS
>>104
各日にちの合計にある数式をK列のセルにコピー
106(1): 2019/08/07(水)16:13 AAS
>>105
すいません、JK列はこちらの画像を作るために手動で作りました。
質問としては、JK列をどうやって作ればいいのかってことになります・・・
107: 2019/08/07(水)17:05 AAS
>>100
Excel:入力規則でドロップダウンリストと入力を混在させたい
http://office-qa.com/Excel/ex270.htm
108(2): 2019/08/07(水)18:22 AAS
VBAで2行目以降の、列Oと列AFが同じ値の行を削除して、行を詰める場合のコードを教えてください
109(1): 2019/08/07(水)19:23 AAS
>>104
あとあとのこと考えると、元帳をさっさと
日付 項目 金額
で正規化・DB化して、
ピボットテーブルで日付別に集計した方が
良さそうだけど・・・
110(2): 2019/08/07(水)19:56 AAS
>>106
各日付と合計セルをJKから参照すればいんじゃないの?もっと複雑な話?
>>108
dim i as long
with 対象シート
for i=2 to 最終行
if .cells(i, "O").value = .cells(i, "AF").value then .rows(i).delete
next
end with
※速度無視の単純コードなので行数増えれば増えるほど遅い
111(1): 92 2019/08/07(水)21:51 AAS
遅くなってすみません。
>>93-95
何度もありがとうございます。
着色で妥協していただくか、マクロを組むか…。
チェック用のシートを作って動かしていたんですが
違う場所をわかるようにして! Excelで作れないの?
となってしまって困っていました。
皆様のレスを見せて妥協していただきます。
112: 2019/08/07(水)21:56 AAS
>>111
チェック列作ってオートフィルタかけるってのがとってもシンプルで結果も一目瞭然なんだがな…
何がそんなに嫌なんだろうな…
113(1): 2019/08/07(水)22:40 AAS
>>99
保存オプションの中に、そんな設定見つからんぞ。
どうやってんだそれwwwww
114: 2019/08/07(水)22:40 AAS
onedriveの共有フォルダにでも入ってるんじゃないか
115(1): 2019/08/07(水)23:32 AAS
>>109
はい、そうなのですが、過去3年にわたって運用されていたので、手動で書き直すのは至難なんです・・・
>>110
項目数が可変なので、JKからは簡単に参照できないんです・・・
116: 2019/08/07(水)23:42 AAS
>>115
可変てどうやって変えてんの?行挿入削除程度なら相対参照利かんか?
117(1): 2019/08/08(木)00:11 AAS
>>101
ありがとう、ローカルからだと大丈夫でした
>>113
ネット上にあるファイルを直接開くと保存もネット上へ行うようになっているみたいです
118: 2019/08/08(木)00:31 AAS
みんなほんとにExcel詳しいなあ。うらやましいわ。
119: 2019/08/08(木)00:45 AAS
>>117
上書き保存してるんだからそりゃそうだよね…
120: 2019/08/08(木)04:32 AAS
【1 OSの種類 .】 Android**
【2 Excelのバージョン 】 最新
【3 VBAが使えるか .】
【4 VBAでの回答の可否】
Androidでシートを縮小しても、ほぼほぼ見える範囲が変わらないんですが、何かいい方法ないですか
121: 2019/08/08(木)13:40 AAS
【1 OSの種類 .】 Windows2010
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
振り仮名表示してる漢字が、直前に平仮名・カタカナ・漢字を入力すると消えてしまい、どうしたら解決するでしょうか?
英字は大丈夫なので、編集するときは直前に英小文字を挟んで、その小文字の前から入力してます
ググっても同じ症状が出てこないです
122(2): 108 2019/08/08(木)15:29 AAS
>>110
↓だと「コンパイルエラー Sub または Function が定義されていません。」になります
Sub Macro_test()
Dim i As Long
whis Sheets("tanka")
For i = Cells(Rows.Count, "i").End(xlUp).Row To 2 Step -1
If .Cells(i, "O").Value = .Cells(i, "AF").Value Then .Rows(i).Delete
Next
End whis
End Sub
123: 2019/08/08(木)15:34 AAS
>>122
打ち間違えてる
124: 2019/08/08(木)16:17 AAS
>>122
whis → with
上下前次1-新書関写板覧索設栞歴
あと 878 レスあります
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 5.481s*