[過去ﾛｸﾞ]
Excel総合相談所 136 (1002ﾚｽ)
Excel総合相談所 136 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
479: 名無しさん＠そうだ選挙にいこう [] 2019/08/30(金) 21:06:38.19 >>471 あと、素朴な疑問だけど、日報もCSVじゃダメなの？日報がCSVでよければコードは超簡単になるんだけど http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/479
480: 名無しさん＠そうだ選挙にいこう [] 2019/08/30(金) 23:11:57.67 >>473 相互参照の必要性が全く無い それが出来ないと不便なことがあるのか? http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/480
481: 名無しさん＠そうだ選挙にいこう [] 2019/08/31(土) 00:05:38.52 >>465です 普通の関数だけではできないんですね ユーザー定義関数ならできそうですか よろしくお願いします http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/481
482: 名無しさん＠そうだ選挙にいこう [sage] 2019/08/31(土) 00:28:57.16 >>481 Range(置換する範囲).Replace "(*)","" http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/482
483: 471 [saage] 2019/08/31(土) 00:57:04.22 >>477 ・フォルダ内のＣＳＶ全てです ・ＣＳＶファイルは手動でフォルダに入れます ・重複チェックは必要ありません ・順番は不順です http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/483
484: 名無しさん＠そうだ選挙にいこう [sage] 2019/08/31(土) 03:40:16.87 >>483 処理速度は考慮してない -------------------- Const PATH = "フォルダパス\" Dim cnt As Long Dim fname As String Dim buf As string cnt = Cells(Rows.Count, 1).End(xlUp).Row fname = Dir(PATH & "*.csv") Do While fname <> "" Open PATH & fname For Input As #1 Line Input #1, buf '※ Do Until EOF(1) Line Input #1, buf If Split(buf, ",")(1) = "" Then Exit Do cnt = cnt + 1 Range(Cells(cnt, "A"),Cells(cnt, "G")).Value = Split(buf, ",") Loop Close #1 fname = Dir() Loop End Sub -------------------- ※は1行目が必ずある前提。無いなら別の処理がいる http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/484
485: 名無しさん＠そうだ選挙にいこう [sage] 2019/08/31(土) 12:32:40.90 【1 OSの種類 .】 Windows10 【2 Excelのバージョン 】 Excel2007 【3 VBAが使えるか .】 いいえ 【4 VBAでの回答の可否】 否 列 A B 1 3 2 1 3 5 4 2 5 4 列Aと列Bを比べて3と5は2つ順位が上がったとして 列Aより列Bの数字が2つ以上順位が上がった事を見つける数式 また該当数字のセル色を変える方法はありますか？ よろしくお願いします http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/485
486: 名無しさん＠そうだ選挙にいこう [sage] 2019/08/31(土) 12:55:18.21 >>481 作業列5列ぐらい使ったらできると思うよ http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/486
487: 名無しさん＠そうだ選挙にいこう [sage] 2019/08/31(土) 13:39:11.18 >>485 同じ行同士比較するんであれば、条件付き書式（数式利用）で、作業列使わずにできますよ。 1行目からデータがあるのであれば、A1:A5(実際にはデータがあるところまで)のセル範囲を選択しておいて ア リボン → ホーム → 条件付き書式 → 新しいルール → 数式を使用して、書式設定するセルを決定 イ 数式を入れる欄に =A1<=B1-2 と入力 ウ [書式]ボタンをクリック エ 塗りつぶしのタブをクリック → 塗りつぶす色を指定 → [ＯＫ]をクリック オ [ＯＫ]をクリック Ａ列の値 ＜＝ Ｂ列の値から２を引いた数字 が成り立てば「２以上順位が上がった」としています。 Ａ列の値にゼロがありうる場合は、 =AND(A1>0,A1<=B1-2) でいいかも（試してません） http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/487
488: 名無しさん＠そうだ選挙にいこう [sage] 2019/08/31(土) 14:15:39.08 >>487 ありがとございます チャレンジしてみます http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/488
489: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/01(日) 02:15:05.40 このソフトを快適に動かせるPCのスペックってどこを重視すればいいんでしょうか？ IEとかも動作させたりするせいか 結構重いのです http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/489
490: 名無しさん＠そうだ選挙にいこう [] 2019/09/01(日) 06:31:47.40 >>489 メモリー CPUは基本的に食わない。VBA使ってて消費量が多ければコードを見直す方がいい http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/490
491: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/01(日) 07:17:30.57 Excel＋IEは ・CPU 2コア4スレッド以上 ・メモリ 12GB〜 あればほぼ大丈夫 8GBだとたまにスワッピング起こって重くなる感じ http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/491
492: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/01(日) 23:53:35.32 それメモリ関係ねぇだろ http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/492
493: 名無しさん＠そうだ選挙にいこう [] 2019/09/02(月) 00:44:16.58 https://moripro.net/vbaie-gethtml/ こちら検索して出てきたもので、これをそのまま使って起動済み画面のHTMLを取得しています しかし、目的の画面のHTMLを読み込んだ後、処理?〜?（リンクをクリックする、テキストボックスに記入するなど）を入れると、 ?を飛ばして??と遷移するときと?~?とうまく遷移することがあります この違いはなんでしょうか？回避方法ありませんか？ http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/493
494: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/02(月) 13:16:14.25 あるけどお前には教える気しねぇな http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/494
495: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/02(月) 17:06:30.06 >>494 なんだこのウンコマン http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/495
496: 名無しさん＠そうだ選挙にいこう [] 2019/09/02(月) 18:49:41.47 380で質問した者です。 質問に対し、フィルタオプションを使用してみては？ とご回答くださり、その場は対応できたのですが、質問に大事な事を書き忘れました。 売上表は複数シートからの抽出された、昇順並び替えをしている可変データになります。 そのため、フィルタオプションだと、データが変わるとフィルタオプションでは 設定した時の抽出状態なので、やはり式の修正が良いのではと思っています。 再度質問して申し訳ありませんが、式の修正で良い方法があったらご教示くださるとありがたいです。 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/496
497: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/02(月) 19:36:41.02 >>496 IFに条件追加するだけじゃ無理なん？ http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/497
498: 名無しさん＠そうだ選挙にいこう [sage] 2019/09/02(月) 20:15:47.64 >>496 {=SMALL(IF((A$1:A$100<>"A店舗夜間")*(A$1:A$100<>"B店舗夜間"),B$1:B$100),ROW(A1))} http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/498
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 504 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.042s