板検索:
Excel総合相談所 125 (730)
まとめビュー
このスレはExcel総合相談所 スレの最新スレです。
表示中 Excel総合相談所 125 (730)
過去ログ Excel総合相談所 124 (1000) 2016/09/19 13:46〜
1
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/10 20:32:18
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類         .】 Windows**
【2 Excelのバージョン   】 Excel**
【3 VBAが使えるか    .】 はい・いいえ
【4 VBAでの回答の可否】 可・否

▼━関連スレ━━━━━━━━━━━━

前スレ
Excel総合相談所
http://sirtuin.me/index.php?word=Excel%E7%B7%8F%E5%90%88%E7%9B%...

Excel VBA 質問スレ
http://sirtuin.me/index.php?word=Excel%20VBA%20%E8%B3%AA%E5%95%...

【質問不可】Excel総合相談所スレの雑談・議論スレ
http://sirtuin.me/index.php?word=Excel%20%E9%9B%91%E8%AB%87


2
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/10 20:34:18
▼━質問時の注意・決まり事━━━━━━━━━━━━━━━━━━━━
・1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
・2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意。
・3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
・4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
・5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
・6 バグ・動作上の不都合・仕様に関する質問などはマイクロソフトのサポートを受けましょう。
・7 VBAはプログラム言語のVisualBasic(6以前)に近い処理が可能で Excelに関係ないことも出来ます。
  Excelの操作に関係ない部分は、スレ違いなのでこのスレでは回答が得られにくいです。
  ここで聞くよりもVBスレやAPIスレなどの該当スレで質問しましょう。
  但し向こうはプログラマのスレなので、構文規則などの最低限の事は覚えてから質問しましょう。
  ここみたいに丸投げはダメですよ。
・8 うまくいかなかったにしても自分でやってみたこと(組んだ数式やコード)は書きましょう。
  例えエラーになる式やコードでも、何をやりたいのかを的確に把握する手がかりになります。
  その上で、どううまくいかないのかを具体的に書きましょう。
  エラーが出るなら、何処でどういうエラーが出るのか、
  想定外の結果が出るなら、条件と想定上の結果、実際の結果などを詳しく書いてください。
・9 マルチは嫌う人が多いのでなるべく避けましょう。マルチをすると、逆に回答は得られにくくなると思ってください。
・A テキストボックス(エディトボックス)、コンボボックス(ドロップダウンリスト)、リストボックス、コマンドボタン、
  チェックボックス、オプションボタン(ラジオボタン)、スピンボタン、スクロールバー、等の質問をするときは、
  ユーザーフォーム、コントロールオブジェクト、フォームオブジェクトのどれなのかを必ず書くこと。
コメント1件

3
ぴころ ◆lHG3Yzo0a6 [るん♪]   投稿日:2016/12/10 21:42:06
新スレおめ☆(^▽^)

4
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/10 21:59:28
いち乙

5
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/11 05:16:33
エクセラ相談所
濃いのが好きなのですが
普通は、小匙にどんくらい盛るのが普通ですか?

6
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/11 08:56:07
マグカップなら軽くこんもり2杯とすこしがいいと思いますが、
蓋をしないと、はいどんどん♪と続きますのでご注意ください

7
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/12 23:28:48
今後ファイルを編集したり共有使用のファイルだからと行を非表示にしたり高さを0にて見えない様にしない癖がついてたんだけど
たまたまいらない改行を選択して右クリック→削除してたのを見られてそんなやり方でやってるんですか!?って驚かれた
1回こっきりの資料の場合は複数行選択→マウスで高さ0にしちゃうのが早いのかな…?

8
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/12 23:30:08
別シートにしてシート自体を非表示

9
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 00:08:49
どういう意味で驚いたのか不明。
どんな資料かによるでしょうね。
右クリックで削除か、非表示にするのが一般的では?

10
名無しさん@そうだ選挙にいこう[age]   投稿日:2016/12/13 01:07:44
エクセルで式を修正しようとすると毎回フリーズしてしまいます。
これはエクセルが壊れているのでしょうか?
プログラムの修復、クイック修復をやってみましたが、フリーズします。
データは25GBあります。

11
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 02:12:36
データが25GBとは??
Excelのバージョンは?ブック(ファイル)のサイズは?
ほかのPCでバージョンはどうなります?

12
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 02:14:38
失敗。

他のPCで同じファイルを開いて編集できるか試せますか?
excel2007は割と頻繁にフリーズする気がする。

13
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 02:22:16
あと、Excel関連のレジストリを削除してみては?

自分のは2016だけど、なぜかVBEのフォント設定を開くとフリーズする。それ関係のレジストリ作り直すととりあえずは直る。

14
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 06:47:31
そもそもExcelのファイルで25GBって無駄な部分多そうだな
25MBでも、結構重くて使いにくい2007

15
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 08:54:41
25gbは25MBの間違いでは
コメント1件

16
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/13 11:58:12
【1 OSの種類         .】 Windows 7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

http://www.excel.studio-kazu.jp/kw/20040111142543.html

すみません、上記のはできたんですがG1入力後A2に行きたいのに
A1に行ってしまいます。↓押せば済むんですができればA列のデータ入力
されてる次のセルに行ってほしいのですが。
コメント3件

17
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 12:01:38
データ入力されているかどうかを自動で判断して、その次(下)のセルに移動したいということ?
VBAでないとむりだと思う。
コメント1件

18
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/13 12:38:27
>17
ありがとうございます。
やはりそうですか。
この機会にマクロ覚えようかと思います。
コメント1件


19
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 12:51:58
>15
もしくはネタ
まあ訂正されるまではスルーでいい
コメント1件

20
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 13:58:00
>18
あれ?自動判別はむりだと思うけど、リンクさきのやり方だと、普通にA2に行くようなきもするね?A1→C1→E1→G1→A2
ってなりません?

21
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 14:05:37
>16
Excel2016 で試してみたけど
新規シートでやるとそうなるな

んで
これ何処までシート使ってるかexcelが認識してるんだけど
それ以上は進まないようだね

んで対策として
セルA10に適当に何か入れみ(入れた後消してもOKみたい)
10行までは G列の後 下のA列って進んでくれるから

22
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 18:53:33
>16
A1:G16をセル選択しておけばtabでいけるよ
そうじゃなければvbaしかなさそう

23
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/13 19:28:04
A列に数値、文字列、空白、エラー値、重複なんでもありのデータが不定数あるとします
下記,鉢△鬚任るだけ短い数式で教えて下さい。

〆撚蔀覆砲△訝佑鯤屬洪式
(ブランクや計算結果としての""は値に含めないがエラー値は値として扱いそのまま返す)

B1にある数式で計算された値と同じ値をA列の中から検索したいとき、
最下段にあるセル番地を得るための数式
(B1がブランクや計算結果としての""やエラー値だった場合、エラーで返しても良い)
コメント1件

24
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 20:45:38
>19
だよね 普通に考えてありえないもん

25
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 20:55:14
これから自分が更新するファイルで、元のフォーマットにビビってる
社内全体に配布する日時実績
やたらと行や列の隙間をギリ狭くして(2重罫線ひいてるみたいに見えるような)
そんなのがそこかしこにあってそういうの初めて見たんでビビってる

基本的にそういう装飾的なフォーマットは作らずにやってきた
「外資系投資銀行のエクセル仕事術」ってけっこう売れた本、これ読んで共感する所多くシンプルがモットーでやってきた
そういうのよくあるんでしょうか?二重罫線的セルの縮め状態
コメント2件

26
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:11:01
>25
ある
特に役所関係に多い。
社名を入れる所は方眼紙状になっていて一文字ずつ入れるようになっていたりする
コメント1件

27
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:30:18
>25
二重罫線は一度だけ見たことあるな
個人的にイミフなのはA列と一行目を空けてる奴
なぜかよく見る
コメント3件

28
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:38:11
注意!!!!

>23

はマジで最悪のクズ質問者
恩を仇で返すクズ野郎だよ

相手にするな

29
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:46:14
俺も1行目は開ける 表の上の罫線引いたかどうかわからない

30
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:47:47
>27
多分余白用
昔やってました。

31
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:52:31
>27
A列開けるのは、ページあたりの行数を数えるのに使うことはあるな
空白に見せかけて実際には、空白一個などでCOUNTAできるようにしてさ

32
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:54:59
あれはひどい。1セル1文字。
勝手に結合してセンタリングしたり、左揃えにしちゃうけど。
作り直して問題ないならExcelやWordで作り直す。

1行目とA列あけるのはやるなぁ。
罫線が見えるのと、あとから行や列を挿入する必要が出てきた時に使えるので。
VBAとかで、全部ずれてしまうので。定数や基点セルをきちんと使えばいいんだけど。

33
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:58:00
>27
Aは列と行、どちらも開ける癖が元々あった
→理由:罫線が見えず場合のよって印刷する際に確認しにくいから

その後たしか前出の「外資系〜」でも開ける方がよい的ことが書いてあった

さらに一緒に仕事したSEしてた人が同じく開けててなんとなく訊いてみたら
やっぱり印刷とか罫線のことが、と言っていたような

だからまったくイミフなんて思わない

34
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:59:40
外資系投資銀行〜でググったら 計算式は=じゃなくて+で始めよう

テンキーあったら1手で+入力できるから(キリッ とかいう記事が出てきた
コメント2件

35
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:59:47
だいたい1列目ってcountaとかNo.とか入れることになるから開けるのが癖になってる
行は行で作業列とかにしたりもあるから、後から結局行挿入してるな
コメント1件

36
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 21:59:49
最近は印刷レイアウトで見れるようになったのでそういうことはしなくなったな
あと、罫線自体使わなくなってきた
コメント1件

37
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 22:00:28
それがどかしたか?
コメント1件

38
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 22:01:43
>34
俺も「+」で始める派。とんでもなく押しやすい位置にあるからな。
頻度の割に「=」は地味に入力しにくい。

>35
作業行って使う?数年に一回ぐらいしか使ったこと無い
コメント1件

39
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 22:02:23
>37>34に対してね
いや、今さら?って冷やかしてるのか
なるほど〜って、ガッテンボタン押したのか、不明だったから

40
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 22:09:24
>38
うん、今いるところでけっこう使うことがある
みんなに見せるのは拠点名のみ その下に実績を↓に向かって追加していく
けど拠点名の表記ゆれ激しく規則性が薄い
だから1行目にフォント白にして拠点コードを入れてVlookupしたりsumifs,countifsしたりする
白にするかグループ化でしまったり
でも1行目グループ化するとセルの表示の固定した時、ちょっと悪さしたりするから1行目にはなるべく使わない

41
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 22:12:16
>36
そうね 罫線使わなくていいならなるべく使わない
元の枠も非表示にしたりする なるべくスッキリさせてる

42
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 22:31:54
>26
あるにはあるのですね
矢印キーで移動しても頭の中のイメージと連動しなくてまずめんどくさそう
あーキモい あのフォーマット 直せるタイミングがきたら直そう
方眼紙は幸いなことにまだお目にかかっていない

43
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/13 22:34:57
このスレもネ申Excel撲滅運動に突入か?
https://oku.edu.mie-u.ac.jp/~okumura/SSS2013slide.pdf

44
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/14 02:33:11
【1 OSの種類         .】 Android
【2 Excelのバージョン   】 Excel
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

すっっっっごい初歩的なことなんだけど、Android版で離れた複数のセルを選択するってどうやるの!?
キーホルダー接続してないとctrl無いし、ググっても詳しく使い方説明してるところもないしでどうしたらいいかわからなくて。
すみませんが宜しくお願い致します!
コメント1件

45
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/14 09:29:31
>44
泥じゃなくてタッチ操作かどうかでわかれる
http://www4.synapse.ne.jp/yone/excel2013_touch/excel2013_touch_cell.htm...
タッチ操作では[Shift]+[F8]キーで「選択範囲に追加」という機能を利用することができます。
コメント1件

46
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/14 11:38:46
>45
ありがとう!
ただ、やってみたんだけど、 ハードウェアキーボードでshiftとかFnがないんだ。
あれってあるのWindowsのタブレットPCだけなのかな?
Androidタブレットでも出せる方法があればいいんだけど。。。

47
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/14 11:42:24
shiftのないハードウェアキーボードなんてあるの?
ソフトウェアキーボードの間違い?
なんにしろこの先は泥版で来たほうがいいかもしれない。

48
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/14 19:08:49
あ、ごめん。
教えくれた記事見間違えてた。ハードウェアキーボードなきゃできないのか。

マウス無し+ソフトウェアキーボードのみでやりたいんだ。
泥版のスレで聞こうとおもったんだけど、今って無くない?

49
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/14 21:13:22
いや泥版エクセルじゃなくてファンクションキーを使う方法を泥版で聞いたらって意味
キーボード変更とかあるんじゃないの?知らんけど

50
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/15 18:26:36
【1 OSの種類         】Windows10
【2 Excelのバージョン  】 Excel2016
【3 VBAが使えるか    】 いいえ
【4 VBAでの回答の可否】

数万行の空白セルを削除しようとすると応答なしで固まってしまいます。
ネットで見てアクセラレータの無効やマルチスレッドやりましたが他にいい方法はありますでしょうか
コメント2件

51
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/15 18:48:42
>50
多分ない。大量のデータ生成or削除はどうやっても固まるっぽい
VBAで100行削除→保存
とかを繰り返して一晩ほっとくのが良いと思う

52
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/15 19:00:22
>50
不要部分を削除するんじゃなくて、必要な部分だけを新規ブックにコピー
必要な部分も大量にあるなら、VBA可にしてもらうしかない

53
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/15 20:14:11
【1 OSの種類         .】 Windows 7
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

http://www.dotup.org/uploda/www.dotup.org1092422.png

http://www.dotup.org/uploda/www.dotup.org1092423.png

このような並べ替えを一発でする方法ってあるんでしょうか?
もしあれば教えてください
コメント2件

54
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/15 20:25:30
>53
今はどうしてるの?
一発じゃなきゃダメなのか…

55
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/15 20:31:11
この表の例で言うなら
ADEBをABDEに並び替えて
切り取り→挿入で揃える

一発ででなくても構わないがこれより合理的なやり方ってありますか?
コメント1件

56
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/15 21:04:37
>53
ない

100個ぐらいあればこんな感じで作るかな
F1=IF(COUNTIF(B:B,A1),A1,"")
G1=IFERROR(INDEX(C:C,MATCH(F1,B:B,0)),"")
F1G1を下にオートフィル

例通り5個なら>55でやるわ

57
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/16 11:23:35

58
名無しさん@そうだ選挙にいこう[age]   投稿日:2016/12/16 18:48:28
【1 OSの種類         .】 Windows 7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

http://www.dotup.org/uploda/www.dotup.org1093212.xls.html

>16です。ありがとうございました。
具体的に言うとTabで1,2,3,〜と数字順に飛んでほしいです。
ただ6の時にEnterを押すと6から15に飛んでほしいです。

どなたかマクロの書いてください・・・
コメント2件

59
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/16 19:05:10
>58
マクロでもいいけど まず確認ね
ロック解除してシート保護かければ
Tabだと 目的通り 1,2,3,〜,6 → 15
と飛ぶのは 確認した?

んでシート保護の時に
"ロックされたセル範囲の選択"のチェックが入ってると思うけど
それ外してみれ Enterでも目的通りにならねか?

60
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/16 19:09:42
>58
vba使うまでもないわ
http://stamp-uploda.com/src/file3728.jpg
入力と出力分ければ良い
右に入力したやつを左で受け取る
これだけで労力1/100ぐらいになると思うけど
コメント1件

61
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/16 23:38:05
>Tabだと 目的通り 1,2,3,〜,6 → 15
>と飛ぶのは 確認した?

14のつぎにまた1に戻ってしまいます

>60
ちと理解できませんorz
コメント1件

62
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/16 23:47:38
>61
入力はAE列〜右あたりにまとめて、
B〜AC列はその入力セルからひっぱってくればいいじゃん
コメント1件

63
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/16 23:48:02
14の次に1に行くかな?
近くで詳しい人捕まえて教えてもらったほうがいいと思いますよ。

64
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/16 23:54:09
シートの設計から見直したほうが良いような

65
59[sage]   投稿日:2016/12/17 00:12:22
なぜ いきなり14が出てくる? そこから1へ??????
釣りじゃないかと思うほど 話がかみ合ってない気がするな
コメント1件

66
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/17 00:23:03
かなりの初心者が変なシートを引き継いだと見える

67
63[sage]   投稿日:2016/12/17 00:37:53
よくわからないけど、マクロにしたらこんな感じかな?
http://uploader.83net.jp/1141891109400828122690
タブキーとかで、P列を選択するとB列に(AD列だとQ列に)いく。
シート例1は空白セルに、例2はデータ有無にかかわらず次の行に。
使えるかどうかしらないけど。

68
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/17 00:43:30
>62
自分以外も使うので今の入力セルを変更(見た目が変わるのは)は不可
>65
14のセルまで入力したらタブで15に行ってもらいたいがなぜか1に。
シフト押しながら1〜15まで選択してセルのロック外してのやりかたで

69
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/17 02:26:13
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

A 獲得点数 10001
B ボーナス1(A*12.5%切り捨て) ROUNDDOWN(A1*0.125,0)=1250
C ボーナス2(A*10%切り捨て) ROUNDDOWN(A1*0.1,0)=1000
D 合計点数 A+B+C=12251

この時、Dの合計点数を入力して、合計点数が入力値以上になるAを求める数式ってどう書けばいいでしょうか。
何か書きながらexcelの質問じゃないような気もしてきました……。
コメント2件

70
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/17 06:12:51
>69
誤解しているかもしれないけど

=ROUNDUP(D1/(1+0.1+0.125),0)
みたいな数式ならどうだろう?
コメント1件

71
70[sage]   投稿日:2016/12/17 06:45:15
ごめん、数字を変えて試してたら1足りなくなるみたいな事例が出てきた

2回分の小数点1位切り捨てを一回で済ませるとどうしても誤差が出るか

72
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/17 07:03:16
かなりグダグダだが

=IF(ROUNDUP(D1/(1+0.1+0.125),0)+ROUNDDOWN(ROUNDUP(D1/(1+0.1+0.125),0)*0.125,0)+ROUNDDOWN(ROUNDUP(D1/(1+0.1+0.125),0)*0.1,0)<D1,ROUNDUP(D1/(1+0.1+0.125),0)+1,ROUNDUP(D1/(1+0.1+0.125),0))
辺りなら誤差でないかと思う
コメント1件

73
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/17 09:00:52
>69
合計Dはこう?
=INT(A1*12.5%)+INT(A1*10%)+A1
コメント1件

74
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/17 12:03:09
アドイン追加してソルバー使ったら?

75
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/17 12:57:54
>70-74
ありがとうございます。
そう、たまに1足りない時があって。
合計の計算式は>73で合ってます。
>72を試してみます。式の内容もちゃんと理解してみようと思います。
ソルバー使わなくてもゴールシーク分析でできることは分かってるんですよね。何でも数式でやる意味はないのは分かってるんですが。
こういう誤差問題を数式で扱おうとすると解決法はあるのか気になって。できるかできないかやってみたかった。

76
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/17 15:05:45
【1 OSの種類     】Windows9
【2 Excelのバージョン 】Excel2013
【3 VBAが使えるか   】いいえ
【4 VBAでの回答の可否 】否

列を飛ばして参照をして、その関数を縦にコピーをしたいです。
&#160;
元データ
A B &#160; C &#160; D &#160; E &#160; F&#160;&#160;&#160; G&#160; H
1 &#160;SS &#160;TT &#160;&#160;UU &#160;&#160;VV&#160; &#160;WW XX&#160; YY&#160; ZZ

&#160;
参照するセル
A
1 SS
2&#160; VV
3&#160; YY
4
5

縦にずっと2個飛ばしが続きます。
1個1個指定するばいけるのですが、3000行近くあるため困っています。

ご教授お願いします。

&#160;
コメント1件

77
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/17 15:46:59
>76
&#160;ってのがウザイがこれスペースだよね

んで
元データと参照するシートが別々だと仮定して

参照するシートへ
A1 =INDEX(元データ!$1:$1,ROW()*3-2)
これを下にオートフィルでどう?
コメント2件

78
76[]   投稿日:2016/12/17 16:49:55
文字化けすみません
元データと参照データは別です。
もう少し正確に書きます

参照データAT4に元データF196を、参照データAT5に元データI196を。

参照AT6に元L196、参照AT7に元O196と繰り返したいです

77さんのやり方試しましたが0が返されました
やり方間違ってますか?
コメント2件

79
77[sage]   投稿日:2016/12/17 17:38:06
>78

"元データを2つ飛ばしで縦に並べる"質問と解釈しての回答なの
君のやりたい事とは違うようだね

で・・・・
>78 の説明では 君のやりたい事が俺には分らない(理解できない)
コメント1件

80
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/17 18:17:51
>79
それで合っています!
ただ77で教えて頂いたやり方だと、77で言うとAT4にJ196の数値が入ります
($1は$196に変えてます)
そこから先はふたつとばしになってるので、AT4にF列の数値が入ればなのですが

わかりづらくすみません
コメント1件

81
77[sage]   投稿日:2016/12/17 18:47:35
>80
>77 は数式的に
絶対行1のセル A列( 1列目)
絶対行2のセル D列( 4列目) ・・・上とは2つ飛んでる
絶対行3のセル G列( 7列目) ・・・上とは2つ飛んでる
絶対行4のセル J列(10列目) ・・・上とは2つ飛んでる
故に AT4 絶対行は4だから J列になってる

で・・・
なぜに2つ飛ばしで F列が出てくる?
↓の()内が2つ飛ばし した時の対象列
(A列) B列 C列 (D列) E列 F列 (G列) H列 I列 (J列) K列 L列

ここら辺が俺の解釈と 君のやりたい事の 食い違い
コメント1件

82
76[]   投稿日:2016/12/17 19:03:01
>81
すみません
起点をAではなく、Fにしたいのです
AからEは項目名がはいっているだけなので
Fからふたつ飛ばしで参照したいのです
F、I、Lと。
これでわかりますでしょうか?
コメント1件

83
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/17 19:41:17
>82
まったーーく わからん
後出し情報大杉 相手してられん

80の>>AT4にF列の数値が入ればなのですが
ここ(AT1〜AT3どうすんの?)聞けば 新しい情報だしてくるだろ絶対

>77において
ROW()*3-2
で 参照する列番号を算出してるからそこを直すと良いよ
ちなみにROW()で自分自身の行番号が分るのね
がんばってね
コメント1件

84
76[]   投稿日:2016/12/17 20:05:03
>83
すみません
単純にAT4にF196、AT5にI196、AT6にL196、AT7にO196…これAT3004までやりたかったのです
AT1〜3もA196〜E196も必要なしです

色々ありがとうございました
自力でがんばります

85
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 10:56:05
MOSの勉強をしてる。事務で使うからだけど。

エクセルMOSでxmlとかあるけど
これって事務系の業務で使います?

使いませんよね?使わないものがいっぱい入ってない?

マクロは使ってたけど
エキスパートがあるのを知らなかった

次何やったらいいんだろう。これでエクセルは完了かな?

AccessとかVBAとか?
コメント2件

86
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 11:27:22
>85
MOSはあらゆるパターンで対応できるような試験となっている
普通はMOSで必要とされる知識のうち、1割も必要としない
パソコン教室の先生など特殊な例外を除けば、実務で触るのに比べて10倍の時間と労力で勉強してるようなもんだ
実務で覚えてからMOSを触れば少しレベルアップできる可能性がある

逆にvbaは絶対に覚えておいたほうが良い。
ほぼどんな職場でも通用する。たまにvba禁止の職場もあるけど

アクセスもリレーションは覚えた方が良い。もし可能ならSQLでも書けるようになっておくと良い
アクセスの普及率は微妙だけど、正規化やテーブルの考え方はエクセルでも通用する、非常に重要な概念だ
コメント1件


87
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 11:27:58
>85
いろんなバイトを経験して、いろいろなアプリの使い方を直に覚えたほうが良いんじゃない
悪い使い方、良い使い方が分かるようになり、組み立てられるようになる
そもそもその仕事が必要?って考えもできるようになる

個人的にはgoogle系のツールを使いこなせる人、もしくは提案できる人が今後必要になるんじゃないかなぁと思う
googleスプレッドシートは共同編集が猛烈に便利だし、集計はgoogleフォームだと最初から集計されている
コメント1件

88
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/18 11:33:57
【1 OSの種類         .】 Windows 10
【2 Excelのバージョン   】 Excel2016

エクセルで画面をスクロールすると、チカチカと画面が暗くなります。
ウェブ上でも同じようにスクロールしましたが、問題ありませんでした。

複雑な式は使用していません。VBAも使用していません。

どうすれば直るでしょうか?

宜しくお願いします。
コメント1件

89
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 11:43:26
>88
直撮の動画でもあげたほうがええかも
イマイチ状況が想像しづらい

90
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 11:59:59
ほかのPCで試してならなければそちらのPCの環境だから 答えられまへんな

91
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 14:00:34
MOSの資格とっても簿記の資格を共にとってないと、却って就職に不利になると聞いたのですが
簿記の知識がExcel使うのに必須なんですか?

それなら簿記も勉強するしかないかないのでしょうか
コメント1件

92
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 14:08:15
>91
MOSだけだと逆に不利ってなんだよwww
というかそんなデマに惑わされるような君がヤバイ
もっとしっかり現実を見れるように、耳と目を養ったほうがいい

93
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 21:05:50
vbaは実務で学ばれましたか?
もちろんSEの方はそれが当たり前なのだと思いますが。
触りは簡単な講座で覚えたのですが、今の会社がvbaが全く歓迎されておらず試せません。
自分の工数削減の範囲で時々作るくらいです。
まず記録で。そこから無駄なところを削ったり、所々付け足したりの程度です。
SQLも覚えたいのですが、これもまた会社で実務はないので独学になります。
OA事務から頭ひとつ抜け出したいけど、学校に通う時間も余裕もなく、毎日仕事しつつも悶々とすることろあり。
なにかアドバイスいただけるとありがたいです。
コメント1件

94
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 22:24:05
【オープンオフィス】にて、英字と数字が混在する文字列の一部を連番で入力する方法を教えてください。 ExcelのA列に「〈li class=item〉〈half=http://test/7812_jpg'」のような英語と数字がランダムにA1にあります。

4桁の数字のみ7812、7813と連番になるようにしたいのですが、オートフィルを使うと下2桁が連番になってしまいます。真ん中4桁を連番にするにはどうすればよいでしょうか。
コメント2件

95
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 22:35:43

96
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 22:37:02
>94

LibreOffice/Apache OpenOffice 総合相談所 12 [転載禁止](c)2ch.net

LibreOffice/Apache OpenOffice 総合相談所 12
コメント1件

97
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 22:52:35
>93
事務やってるけど、vbaは実務もあるけど趣味もあるな
まず発言権を得るためにも信用されないとな。
簡単な方法では、今やってることと「全く同じ」ことをマクロにやらせる。仕事を変えるのは後
ファイルやフォルダ作って、名前変えて、保存やら検算〜みたいな事があると思うけど、その通りの事をマクロひとつで終わらせられるようにする
ボタンにしておけば視覚的にもわかりやすく、誰にでも操作できていいと思う

そうすりゃ自然と信用されて、仕事自体を作らせてもらえるようになる
そうなればあとは楽ちんで、ひたすらシステムをつくるだけでよくなる

その後は他部署を巻き込んだり、既存のシステムを改良したりしていけばok
コメント1件

98
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/18 22:54:41
>95
>96
焦っていたもので、すみませんでした。

99
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 04:16:40
>97
お返事ありがとう
業務量もあり忙しいところなので、並行して作るのはなかなか難しそう
でもなんとか時間捻出して少しずつやってみようかな
その場合って先生はやっぱりgoogleと本ですよね?
ま、でも今のところ(部門)がvba毛嫌いされている(おそらく部門のデータ仕切ってる人がvba組めないから)
ので、他の部門への異動や転職見据えつつ
vbaで残業する訳にもいかないから、とりあえずいつもの業務をかっ飛ばして早く終えて、時間作るところから

SQLはやはりハードルが高そうな…
コメント1件

100
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 07:13:57
>99
> (おそらく部門のデータ仕切ってる人がvba組めないから)
セキュリティの問題だろ
マクロウィルスによる損害の責任とれるのか?
って話
コメント1件

101
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 09:08:03
時間を作る
空いた時間でコーディング
また時間があくのでコーディング
雪だるま式に暇になるから、その時はwebの勉強でもすればいい

俺みたいにゲームを作るという方向に向かうなよ(暇すぎて何をやるべきかわからなくなった)
コメント1件

102
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 09:27:49
>86
ありがとう
VBAってC言語出来る人は楽勝?

>87
エクセルいじる
バイトってないよ
コメント4件

103
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 12:43:07
>102
募集要項には、データ処理とか、インプット作業、事務、軽作業、伝票発行としか書かれてないことが多いみたいね
Excelとわざわざ書くと敬遠されやすいからと聞いた

104
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 14:22:54
14個のシートがあるエクセルファイルがあります。
マクロ等は一切使っていません。

開くとシートが一つだけで他がなくなってて、
保存せずそのまま閉じただけで、
ファイルも小さくなり、
以後シート一つのファイルとなってしまいます。


これって何が原因でしょうか?
※すべてのファイル、常に発生しているわけではありません。

【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
コメント1件

105
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 14:48:11
ファイル形式は?
xlsx?
コメント1件

106
104[sage]   投稿日:2016/12/19 15:46:57
>105
はい、そうです。

107
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 17:01:40
PC特有の問題かも。
ファイルアップしてみては?

108
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 18:52:03
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

http://www.dotup.org/uploda/www.dotup.org1096181.jpg

画像のように入札シミュレーターを作っていました。
ルールとしては各入札価格に大して平均の標準偏差をとり、
その範囲内の価格のみを抽出して平均を計算し最低制限価格を
決定するというものです。
標準偏差と平均算入上限下限は算出されるように数式はできました。

お聞きしたことはC14:C23内において、F20値未満かつF21値超過の
範囲内のセル値のみの平均を算出したいです。
数値の直接入力計算式ではなくて、セル指定の連動で瞬時に算出
できるようにしたいので悩んでいます。

一応ない頭で考えた結果

=AVERAGEIF(B14:B23,"F20>,>F21",C14:C23)

でエラーが出てしまいます。
よろしくお願いします。

※C14:C23内の上限下限内のセルは青くなっています。(青くなるようにした)
コメント2件

109
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 19:17:08
>102
cとはかなり書き方が違う
.hファイルもないしincludeも基本しない
if () {}
if flg then
endif
エクセル自体がクラスのオブジェクト指向だからCとは結構相性悪い

110
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 19:18:09
>102
Cのifは
if (flg) {}
だけどvbaはこんな感じ
if flg then
endif

まぁ書き方の違いなだけでそのへんはすぐに覚えると思うけどな
多分setでつまづく

111
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 19:23:24
>104
ファイルみないとわからんけど、それcsvで保存してるようにしか見えない

>108
SSがあるのはありがたいけど列番号も行番号もないとどのセルかわからん

カンで答えると
>F20値未満かつF21値超過の範囲内のセル値のみの平均を算出したいです。
これはsumproductか作業列が必要になると思う

112
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 20:52:52
>108
AVERAGEIFS じゃいかんのか?
http://www.excel-list.com/averageifs.html

こんな感じ
=AVERAGEIFS(C14:C23,C14:C23,"<"&F20,C14:C23,">"&F21)

113
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 21:54:36
>100
そういうことがあるのですか

うちの場合は短期契約の自信満々な人がマクロ組んでやったよ風情の上から目線で作って辞めて、それがうまくまわらないのをその責任者が修正できなくて赤っ恥かいて以来、マクロは悪者、禁止!となってしまったのです。
とても冗長なコードでした(おそらくほぼ記録)
どっちもどっちだなと思いました。

114
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 22:00:23
>101

暇すぎるところまで時間作れるようになりたい
でもあれですね、うまく転職とか絡めていかないと今と同じ待遇のまま安く(業務スキルに対して)使われても困りますね。
頑張って時間作ろ
ありがとう!

115
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 22:01:29
>102
あるよ

116
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/19 22:48:47
【1 OSの種類         .】 Mac OS X
【2 Excelのバージョン   】 Excel 15.20
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
すみません、かなりの初心者です
いくら調べても答えがわからないので質問させていただきます

ピボットを使って複数のフィルターをかけたい場合、どうすれば良いですか?
例えば
Aくん りんご、みかん
Bくん りんご、ぶどう、なし
Cくん ぶどう、なし
Dくん りんご
Eくん りんご、みかん、いちご

というデータがあるとして、
りんごを持っていて かつ みかんを持っている人(この場合AくんとEくん)
だけを出す場合はどうしたらよいでしょうか
今は数えやすいようにピボットでどちらも行に表示させていますが、複数フィルターをかけるとどうしても
りんごを持っている または みかんを持っている人(この場合Aくん、Bくん、Dくん、Eくん)
になってしまい、どちらも持っている人が出せません
ピボットでなくてもよいのですが、どうにか複数の条件を含むデータの抽出方法を教えてください。
コメント1件

117
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/19 23:36:14
>116
作業列を使っていいなら、=COUNTIFS(A1,"*りんご*",A1,"*みかん*")
で下方向にオートフィルして作業列で1になる行をフィルタで抽出

A1は適宜実際のデータがある列に直してくれ

118
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/20 12:18:00
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
A1に'+20('がついて、コメントとなっているセルです)、A2に30と入力
A3に=A1+A2と入れると、'でコメントアウトしたにもかかわらず50と出ます
=A1*5+A2とするとA1が20として扱われ、5倍されるので130と出ます
逆にA3に=SUM(A1,A2)と入れるとA1は無視されて、30と出ます

これは昔からExcel決まっている仕様なのでしょうか?
何年かのExcelから急に変更されて決まった仕様なのでしょうか?
はたまた、四則演算かSUM、どちらかがバグっているのでしょうか?
コメント1件

119
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/20 12:35:47
>118
昔からの仕様
文字列に四則演算をすると数字にできるときは数字扱いがされ、できないときはエラーになる

SUM関数は、文字列を無視して範囲内の数字を合計する関数
コメント1件

120
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/20 12:55:33
>119
ありがとうございます

もし、バグだったり、何年かからの急変更仕様だったら、今後仕様変更とかバグ修正があったら、
それまでにそういう風に入力した帳票の計算が狂って困るな…と思いまして

121
108[sage]   投稿日:2016/12/20 20:51:06
>111
レスありがとうございます。画像切り抜く際にうっかりしてしまいました。
すみません…

>112
レスありがとうございます。その数式でできました。条件指示のルールがまだ
理解できてなかったんですね…。本当にありがとうございました。

122
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/21 14:49:07
【1 OSの種類         .】 Windows8
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否

ソルバーを使って解を出そうとしています。
その過程で変数セルを範囲指定すると200を超えてしまい困っています。
$C$8,$C$11,$C$12,$C$13,$C$14,$D$6,$D$15と不規則な場所のみを指定すれば200を超えないで済みそうなのですが、
この方法ではうまく動いてくれません。

ソルバーの変数セルは範囲選択でなくては正常に動かないのでしょうか?

123
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/21 21:31:20
名前の定義で範囲設定すれば?

124
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/22 14:51:46
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

他のファイルやシートを開くと即自動的に保存され戻るボタンが使えなくなってしまいます
設定の問題でしょうか?
コメント2件

125
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/22 16:11:16
>124
それ特定ブックのみで発生してる? それとも特定ブックに依存してないの?

なんとなく アドインか そのブックにマクロが 組み込まれてて
"他のファイルやシートを開くと即保存"になっているんじゃないかな? と思うのだけど

発生してるブックは xlsx ? そして何か変なアドイン インストールしてない?
コメント1件

126
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/22 16:40:01
>125
マクロもアドインも無いんですよ、拡張子はxlsxです
ちなみにOfficeを再インストールしても同じでした
コメント1件

127
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/22 16:50:19
sheet1のA1セルに計算式が入っています。

|討出されたA1セルの数値とsheet2のA列を照合し、一致した行番号(n)をsheet1のB1セルに返す
n行のなかで、セルの数値が「102%」以上となっている最初の列番号(≒条件に合うセルがCn,Gn,ABnの3つあったとしたらC)を取得しsheet1のC1セルに返す

MATCH関数を使って,呂任たのですが、△里笋衒がわかりません。どなたか知恵を貸していただけませんでしょうか。
コメント1件

128
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/22 17:00:57
hlookupとか

129
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/22 18:58:27
>124
同じファイルを開いてるわけじゃないよね?

そんな設定は聞いたこともないし、無い気がする
あと2010は保存しても戻るボタンが使えるので、何かがおかしい

原因はさっぱり分からんが、再インストールで解決すると思う
コメント1件

130
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/22 19:05:59
>126
勝手に保存するのはExcelの機能としては自動保存がありますが それ切ってみたらどうなります?

あと 古い記事ですが こんなの見つけました
http://www.excel.studio-kazu.jp/kw/20030922231030.htmlてやろうとしたけど失敗したwww
↑のはExcel2000だけど
『閉じる時に自動的に保存されてしまう』というもの
最後の方で解決したみたいだけど 他アプリが原因と書いてあります

↑の記事でわかる事は 他アプリがExcelを監視して悪さしてる可能性もあるという事
コメント1件

131
130[sage]   投稿日:2016/12/22 19:10:02
コピペ みすったwww

↓のように脳内変換して 見て下さい

× http://www.excel.studio-kazu.jp/kw/20030922231030.htmlてやろうとしたけど失敗したwww

〇 http://www.excel.studio-kazu.jp/kw/20030922231030.html

132
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/22 19:37:17
>127
作業列でいいんじゃね
sheet2!B5=IF(B3>=102%,1,0)
右にオートフィル
B2=MATCH(1,Sheet2!5:5,0)

133
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 00:47:41
>129
>130

色々やってみてもダメでしたが、助言ありがとうございます

134
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 10:15:17
A B C D E F G H I
10 0.99 0.998 1.00 1.01 1.011 1.012 1.018 1.021 1.022

1.02以上の数値が入力されている最初のセルという条件でこの行内を検索し、Fという列を返すにはどうすればいいでしょうか?
コメント1件

135
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 10:23:52
>134
A2=A1>=1.02
右にオートフィル
A3=MATCH(TRUE,2:2,0)
コメント1件

136
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 10:43:51
テーマの効果を変更しようとしたところシートの保護とでて解除できません。
解除を押すとテーマのボタンが非活性化します

137
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 13:13:41
練習で出費表をつくってみた。家計簿みたいなやつ

表を作っていて
年月 種類 金額 備考
2016/12 食費 2000 ビックリマン1箱
2016/12 食費 3000 
2016/12 雑貨 4000
2016/12 交通費 800
2016/12 交通費 400

みたいにした。今月のグラフを作りたい
交通費と食費は合体した金額でだしたい
縦棒 食費 雑貨 交通費3本でだしたい

でもうまくでません。食費は自分で合計を出して別の表を作りそれでグラフをつくらいないとダメかな?
わかる方教えてください。

2017/1月
にもまた下に連ねて書いていきたい。簡単にグラフがだせたり各月の合計のグラフが出たり
全体の項目ごとの割合グラフとかいろいろつくりたいが。面倒な方法で作るならつくれるけど簡単な方法ってないかな
コメント6件

138
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 13:28:17
>137
ピボットグラフ でいいんじゃね?
コメント1件

139
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 13:36:16
ありがとう
本読むのと作るのって違うね

140
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 13:39:10
>137
そこまで行くと簿記の世界だな
俺なら月ごとに損益と貸借(パソコンなどは費用じゃなくて資産とする。なくてもいいかも)のシートを作って
集計用シートででindirectかマクロで集計、グラフを作成する
コメント2件

141
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 13:52:20
>138
ありがとうございます
でましたが
その下に2017/1といれてやってみたら

1月が出ません
        食費  雑貨
2016年12月 5000

みたいにはでてるんですが
      食費
2016年
2017年1月とだしたい
コメント2件

142
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 13:55:48
【1 OSの種類         .】 Windows 10
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

空白を0とあつかいたくない

A1セルを空白とします。
B1セルに数式=IF(A1>=0,"あああ",IF(A1="",""))
と入力すると「あああ」が返されます。A1>0とすると空白になるのでA1は0とみなされていると考えます。
空白を0とみなさずにB1セルを空白とするにはどうすればよいでしょうか。
宜しくお願いいたします。
コメント1件

143
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 13:58:38
>140
作りたいものはわかるけど
言ってる意味がわからないw

下に
2017/1と連ねていって
ピボットの合計グラフって作れないですか?

144
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 14:00:50
>142
=IF(AND(A1>=0,A1<>""),"あああ","")
コメント1件

145
142[]   投稿日:2016/12/23 14:03:26
>144
ありがとうございます
できました

146
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 14:13:54
>141をいろいろ動かしてみましたがうまくできません。
更新ボタンとか関係あるのかな

しかも
日付 食費 雑貨の日付を

月に変えたら日付のままだし
1から作り直すしかないかな
コメント1件

147
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 14:57:19
>141 >146
やりたい事がいまいち理解できてないが 出来るとおもうのだが・・・
ピボットテーブルの事 本かどっかのサイトで勉強する事を勧める

あと いっその事 VBAでグラフ作ったら?
組みようによっちゃ >137 の下の方で書いてる
"いろいろなグラフ"とやらも出来ると思うぜ
コメント2件

148
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 15:07:45
>135
ありがとうございます。格闘してたんですが思うように行きません。

A B C D E F G H I
32 1.00 0.98 0.99 1.01 1.012 1.019 1.021 1.022 1.021 ・・・・
33 1.10 1.11 1.10 1.12 1.012 0.989 1.020 1.020 0.998 ・・・・
34 1.13 1.31 1.00 1.19 1.22 1.019 1.020 1.030 1.998 ・・・・
35 1.19 1.01 1.30 1.29 1.210 1.219 1.040 1.122 1.666 ・・・・
36 1.26 1.81 1.17 1.32 1.001 0.994 1.111 1.029 0.933 ・・・・

計算式を入力するシートとは別のシートに上記のような数字が載っている表があります。

例えば…
計算式シートの特定のセルに「1.19」という値が弾き出されて、その隣のセルに「1.2」という数字(≒条件)が入力されていたとしたら、
『(魅掘璽箸忘椶辰討い詆修A列から「1.19」と完全に一致する行の番号を特定し、計算式シートのどこかのセルに返す
該当行(35)のB列、C列、D列…と横方向に続いていくセルのなかから「1.2」以上の数字が入っている最初のセルの列(D)を探し出し、その列番号を計算式シートのどこかのセルに返す』

これを実現できる関数式を考えているのですがどうすればいいのか分かりません。
コメント1件

149
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 15:14:21
VLOOKUPとHLOOKUPでいいじゃん 行番号、列番号はセルにいれとけばいい
コメント1件

150
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 15:18:54
>147
エキスパートを読んだよ
やってみたら縦横とグラフの関係から
自分の作るものは載ってないことに気づいた

でもつくれるんですよね。
少しいじってみます。

151
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 15:20:47
>149
「〜以上」で数値検索するやり方がどうしても分からなくて。
行番号を特定する,離廛蹈札垢肋魴錣箸覆辰討い訖字「以上」ではなく、条件となっている数字と完全一致する場所の特定になるのでMATCH関数でできそうなんですが
横方向に列番号を特定する△離廛蹈札垢肋魴錣箸覆辰討い訖字「以上」を探す必要があるので困っています。
コメント2件

152
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 15:21:35
>147
VBA無理です。勉強してません

153
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 15:22:45
>151
IF関数とかで簡単にできそうだけど
コメント1件


154
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 15:30:22
>153
位置取得するからなあ。

155
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 15:32:50

156
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 15:35:54
>148
A列の 1.19に該当するのは 35行目だよね
そこから 1.2以上は C35の 1.30じゃね? なぜ 初のセルの列(D)なの?
コメント1件

157
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 15:37:03
>156
間違えましたすいおません、おっしゃる通りC35が正しいです。

158
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 15:41:07
プログラムなら簡単にかけるけどエクセルの関数だけでやるのってどうやるんだろうね
コメント1件

159
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 15:42:18
sumproduct出いけると思うけどめんどくさいのでやりたくない
コメント1件

160
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 15:43:09
>158
こんなのVBA使わなくてもできそうだけど。

161
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 15:43:45
vbaのほうが早いぞこれ
縦にループ横にループで一瞬で終わる

162
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 15:50:14
>140
簿記と言ったら、メインは複式簿記。
交通費を現金で払ったら、
「借方:交通費 120円/貸方:現金 120円」と仕訳して、
・借方交通費は損益計算書の「費用の増」
・貸方現金は貸借対照表の「資産の減」
などと集計する話だから、そこまででない。
>137 は、まだお小遣い帳か家計簿の範疇だべ?

で、>137 には、このあたりが参考になるかと?
http://www11.plala.or.jp/koma_Excel/pivot_menu.html

科目は項−目の2段構えにして、
食費・交通費−食費
食費・交通費−交通費
雑費−雑費
の体系にする。で、
・目をユーザーが入力すると、これを引数にして項は関数で自動表示か、別表で変換して集計
・ピボットでは項で集計する
とか?

なお、年月日の書式はExcelが認識できる書式に統一すること。(正規化の初歩)
「2016年12月23日」にするか「2016/12/23」にするか?
「2016.12.23」では日付として認識しない。
いろいろな書式の混在ではトラブルの原因。
それをやっていればExcelが日付と認識して、
ピボットテーブルで年でも月でも集計可能。

また、データの入力範囲は可変が可能。
元の入力データに名前を定義する。
コメント1件

163
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 15:50:16
>159
sumproductでイケルね
でも >155 で十分だとも おもう

164
134[]   投稿日:2016/12/23 16:14:56
色々教えてくださってありがとうございます。VBAにしてみます。

165
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 16:43:22
>162
ありがとうございます
どうして

ピボットの方には2016/12月しか表示されないのかわかりますか?
'2016/12
'20171
といれてますひづけはいれてません
コメント1件

166
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 16:43:35
'2017/1

167
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 17:14:22
>137
作業セルで補助科目を合計するのが最も簡単だよ

あと入力Sheetと集計Sheetは分けた方が結果的には簡単
コメント1件

168
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 17:23:15
>165-166
なぜ、年月のアタマに ' を付けているの?
そのままセルに入力しているのであれば、
Excelは日付データとして認識しない。

「2017/1/** ○○費 ××(円)」と個別データを入力した元テーブル全てが、
ピボットの対象範囲になっているか、要確認。
コメント1件

169
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 17:36:46
>167
>168
ありがとう。###とでてたからいれてたんです。
でました。
コメント1件

170
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 17:48:44
>169
かなりまずい対処方法をしている

###
は幅が足りないだけなので、幅を伸ばせばよい
また、表示を変えたい場合は右クリックの書式設定を使う

171
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 18:11:02
ありがとうございます
ただ
2016/12/1はあるけど
2016/12がないです
コメント1件

172
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 18:19:05
ユーザー書式で
yyyy/m
と入力する
しっかり勉強すれば何でもできるようになるよ

173
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/23 18:23:30
ありがとうございます

174
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/23 23:41:46
>171
せっかくの日付データの自動認識機能があるのに、
アタマに ' なんか付けたら、
文字列としか認識しない。

「2016/12」は、
ピボットでの集計の時に「月」単位を選べば、自動で表示するから、
ユーザーは入力しない。(選択だけ)

入力表の日付の列を全部選択して、
セルの書式設定-日付で「2012/3/14」とかにしとく。

そうすれば、あり得ない日付をユーザーが入力すると、
「文字列」として認識して左詰めになる。
有り得る日付を入力すると、
「日付データ」と認識して、右詰めになる。
コメント2件

175
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/24 13:38:49
>174
どう認識したかを 右詰め/左詰め で見ると 間違う可能性もあるぞ

書式設定の 配置(横位置) が標準の場合ならいいけど
ここが"右詰め"設定だと 「文字列」として認識しても"右詰め"だよ
コメント1件

176
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/24 19:58:13
右詰め/左詰めで判断かぁ
そういや数値って何故か右詰めで最後に半角スペースあるけど、あれなんなんだろう
すごく嫌いだわ
コメント1件

177
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/24 20:07:36
>176
あれ
数値の書式設定が 0_ になってるのよね(最後に半角スペースがある)
ユーザ設定で定義しなおすと良いよ
コメント1件

178
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/24 20:13:37
>177
それやると新しく書式が数値になった奴とずれて尚気持ち悪くなるw

179
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/24 20:52:11
>175
書式で「2012/3/14」を選んでおいても、
手入力で「2016/11/31」とか、ありえない日付を入力しても、
残念ながら、エラーにならないんだわ、これが。

「データの入力規則」だと、期間設定とかになっちまう。

それより、初心者には、
「見てくれの様式」にこだわらず、
データの正規化の意味が分かるようにして、
右詰め、左詰め、文字列、数値、数量、通貨、日付、時刻、桁区切りカンマ、有効桁数表示・・・
なんていうのを段階的に教えないと、
ネ申Excelの権化になっちまう。
コメント1件

180
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 04:50:46
>179
CSVから落としたデータだとやたら文字列になっている
そのまんま使うと問題ないのだか、偶然ダブルクリックしたセルだけが数値か標準に変わり、左寄せが右詰めに変化するとする
それが原因かはっきりしないけど、lookupでkeyとして引っかからないことがあり、手立てがないので全コピーして新規BOOKに値貼り付けする
sumifs、countifs、配列などで当たらないと、keyをコピーし直して式にまんま貼り付けたり

あるいは0加算して揃えたり

こんなことしてるうちに無駄な時間を要していまう

CSVの文字列の厄介さに振り回される手間を省きたいのでなるべく触らずに加工するが
他の人が変ないじり方すると一部だけ書式変わってたり

あとは日付をシリアル値にした後、いくら書式を日付にしても全く戻らず

長くなったがこのあたりの法則性が掴めず、とにかく新規BOOK立ち上げるしかないのかな?と
コメント2件

181
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 08:57:08
>180
そのまま開いたりD&Dだと内容がおかしくなる
インポート機能を使う
http://d.hatena.ne.jp/so_blue/20100331/1270047670

これはエクセルが悪いと思う

182
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 09:47:32
まず新規シートで全セルを文字列にする
次にCSVをメモ帳で開いてからExcelにコピペする
データの内容にもよるけど、これでだいたいうまくいく

183
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 09:50:24
>180
オイラも勉強中だけど、それはcsvファイルの、
このあたりの問題が関係しているのかな?
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_020.html

1. 文字列項目は両端がダブルクォーテーションで囲われている。
2. 文字列項目は両端がシングルクォーテーションで囲われている。
3. 文字列項目でも両端がダブルクォーテーションやシングルクォーテーションで囲われていない。
4. 文字列項目は両端がダブルクォーテーションで囲われているが、その文字列中にカンマが存在する。
5. 行ごとにカンマの数(つまり項目数)が一定していない。
6. 途中にブランク行が許されている。また、行によりカンマの数(つまり項目数)が一定でない。
7. 改行コードがCR+LFでない。(UNIX系システムではLFのみの場合がある)
8. 一番ひどい例では、文字列項目の途中に改行(CRやLF)が含まれている。

184
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 10:59:44
エクセルが悪いわけじゃない

公式なSV形式って規定はないから
「ざっくりカンマ文字で区切られた文字列」だからね
だからCSVを使うときは入力データ(出力データ)としてCSVデータは
「こういう仕様ですよ」って関係先と合意しておかなければないらない

だから、EXCELのデフォルト機能でまかなえないのであれば、
自前でCSVファイルをパースして入出力するマクロを入れるべきだよ
コメント1件

185
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 11:01:21
>184
そこじゃない
常にインポート機能を使って呼び出すべきという事
コメント1件

186
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 11:21:24
話の流れぐらい読めよ...

187
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 12:06:10
>185
どうなんだろう?

インポート機能って「外部データの取り込み」のこと?
複数のcsvファイル連続取り込みをやりたい等の理由で、VBAで組もうとしたら、
 ActiveSheet.QueryTables.Add(Connection:=・・・
なんてのを使うことになると思うけど、
http://www11.plala.or.jp/koma_Excel/contents11/mame11053/mame1105310.h...

これで異なるセパレータの混在に、全て対処出来るのかな?
また、応用にも制約がかかるのでは?

例えば、連続取り込みに加えて、
取り込んだ各行の右列に、さらに元csvファイル名とかタイムスタンプも書き込みたい
(元データが随時更新される場合で)
なんていうのを仕込もうとすると、.QueryTables.Addでは厳しくて、
セパレータ違いの処理も伴って、1行ずつデータセットとして読み込んでいくような、
 Open、Line Input とか FileSystemObject
なんかで組むべきかと?
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_030.html
http://www.asahi-net.or.jp/~ef2o-inue/download/sub09_020_090.html

ちょうどオイラ、悩んでいるところで。
(10エリア別・1日1ファイルの電力系統5分値万kWデータ等)

188
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 12:23:13
取り込むデータが決まってるんなら、セパレータの解釈もそれに合わせて作ればいいだけじゃん
どうして汎用かつ万能の物を欲しがるのか

そもそも万能なんてのは非現実的、不可能と言ってもいいぐらい
あらゆるケースに対処しようとしてもどこかで必ず例外が出てくるし、苦労して実装できたとしてもたぶん重かったり使いにくい物にしかならない
コメント1件

189
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 12:44:45
csvからの取り込みはaccessの方が向いてると思う
excelは動的型付けすぎて不便

190
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/25 12:52:48
>188
取り込みVBAをようやく1個覚えようとしているから

191
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/26 22:02:14
うん千件の名簿を五十音順にするやり方を教えてください。ふりがなはふられていません。
コメント1件

192
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/26 22:08:10

193
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/26 22:14:07
>192
ありがとうございます!
早速やってみます

194
191[]   投稿日:2016/12/26 22:19:28
ふりがなが間違っている場合は逐一直さないといけないのでしょうか?かなり件数があるので避けたいのですが・・
コメント1件

195
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/26 22:25:03
これはふりがなをIME、つまり自分のPCから拾ってくるってものだったと思う
googleimeなどに変えると結果が変わるかもしれない

あとはどんなデータかによる。
例えば住所として、上手く都道府県や市区町村で切り分けられるなら、切った状態でセルを分けてgetphoneticをすれば精度が上がると思う
もしくはどこかからデータを拾ってきてすぐに終わると思う

それ以上はデータみないとわからない。
多分手動になるんじゃないかなぁ

196
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/26 22:33:19
>194
人名とか地名とかは 同じ漢字で読み方違ったりするから 機械的に完全に変換するのは無理かと
どうしても手動修正は避けられないよ

一例として
"新谷"←これどう読む?

"ニイヤ"さん "シンタニ"さん
両方実在してるぜ さらに 最近のキラキラネームはもう・・・
コメント2件

197
191[]   投稿日:2016/12/26 22:36:00
ありがとうございます( ;∀;)

198
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/26 23:20:00
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否(というか関係ないw)

ちょっと教えてください

今、↓
http://www.dotup.org/uploda/www.dotup.org1104325.jpg
の状態でこの「表示」をクリックするとリボン(って言うんだっけ)が
表示され↓の状態になるんです
http://www.dotup.org/uploda/www.dotup.org1104326.jpg
この状態を固定したいんですが、どこをいじればいいんでしょ?
コメント2件

199
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/26 23:25:47
>198
[Ctrl]を押しながら[F1]で、リボンの表示/非表示の切り替えができますよ。
コメント1件

200
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/26 23:29:01
>198
リボンを右クリックで「リボンを最小化」のチェックを外す

201
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/26 23:41:30
>199,200

素早く回答してくれてありがとう。助かったw

202
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/26 23:49:03
下記の例で
1の列の値がaとcの場合、それぞれの2,3,4列の値同士をを割ってその結果は下に出すということをしたいのですが可能でしょうか?

1 2 3 4
a x y z
b m n l
c o p q
コメント1件

203
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/26 23:56:41
>202
B4=INDEX(B1:B3,MATCH("a",$A$1:$A$3,0))/INDEX(B1:B3,MATCH("c",$A$1:$A$3,0))
右にオートフィル
コメント1件

204
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/27 08:47:44
>174
ありがとう

205
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/27 12:20:32
>196
俺の取引先にその文字で 「あらや」さんがいるわ
そっか普通は、しんたにさんとかだよな
コメント1件

206
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/27 18:40:05
>196, >205
日本人の柔軟性をなめてもらっては困る

【名字】新谷
【読み】あらや, あらたに, あたらしや, しんたに, しんや, しんがや, しんがい, にいや, にいたに, にたに
【全国順位】 489位
【全国人数】 およそ40,700人
https://myoji-yurai.net/searchResult.htm?myojiKanji=%E6%96%B0%E8%B0%B...
コメント1件

207
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/28 11:09:24
【1 OSの種類         .】 Windows 7
【2 Excelのバージョン   】 Excel 2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

【質問内容】
001
山田 太郎

002
田中 一郎


003
鈴木 愛    

↓右隣と右2隣の列に

001       001  山田 太郎
山田 太郎    001  山田 太郎
        001  山田 太郎
002       002  田中 一郎
田中 一郎    002  田中 一郎
        002  田中 一郎
        002  田中 一郎
003       003  鈴木 愛
鈴木 愛     003  鈴木 愛

と入力したい場合、どのようにすればいいのか教えていただけませんでしょうか?
一人でこねくり回していても、なかなか答えが出せず…
コメント2件

208
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/28 11:33:47
>207
3回繰り返すのか、4回繰り返すのか、2回なのか
規則性がいまいち不明
コメント1件

209
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/28 11:41:29
>208
情報が足りず申し訳ございません。
行数の繰り返し回数はランダムです。
元データの001→002に切り替わるタイミングがそれに当たります。

210
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/28 13:08:30
>207
こんなの どうだろうか?
そのデータがA列にあるとして

B1 =IF(AND(ISNUMBER(A1*1),A1<>""),A1,OFFSET(B1,-1,0))
C1 =INDEX(A:A,MATCH(B1,A:A,0)+1)
下にオートフィル
コメント1件

211
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/28 13:45:00
>210
ありがとうございます!
やばいですね…。関数ググりながらやっと理解できました。
無事作成できそうです。本当感謝します。

212
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/28 21:19:47
>206
1969年のヒット曲「フランシーヌの場合」で知られる 新谷のり子 は
本名は「あらや」だが 淡谷のり子 に似ているから芸名は「しんたに」にしたと

213
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/28 22:00:31
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【4 VBAでの回答の可否】 可

住所を二つのセルに分けたいのですが、郵便番号から生成した途中までの住所を使って
SUBSTITUTE(A1,B1,"")
という風にすると、大字(あざ)や小字の含まれている住所が対応できません
(郵便番号から生成した住所は字が省略されている)
文字列を頭から比較していって一致する部分までを抜き出したりできないものでしょうか?
もしくは全く別の観点からうまく住所を分割できないでしょうか
コメント3件

214
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/28 22:10:32
>213
具体的な例を2,3あげてみて

215
名無しさん@そうだ選挙にいこう[SAGE]   投稿日:2016/12/29 13:36:27
>213
分割する目的は何かな?
それ次第でやり方があると思うよ?
都道府県を分割するだけなら普段から関数でやっているし

216
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/29 14:37:26

217
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/29 19:44:24
>213
"大字"や"小字"はもう 使ってない所 殆どだと思うけど
古い住所表記が 住所禄とかに 残ってる とかかな?

住所禄
○○県△△町大字××

郵便番号から生成した住所
○○県△△町××
コメント1件

218
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/29 21:28:32
>217
平成の大合併で地方では大分増えたよ
大字が旧町村名で字が旧大字のパターン

それに埼玉の八潮市にある二丁目みたいな地名の扱いも悩ましい
割りと2-と表記する人多いし
コメント1件

219
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/29 21:32:50
>218
そなんだ
でも 郵便番号から生成する時の元データって
変わってないものなの?(日本郵便でしょ作ってるの)
コメント1件

220
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/30 04:32:52
>219
変わってるよ
ただ日本郵便は大字と字を付けない表記で統一しているが
役場などは大字と字を付ける表記が多いというので
郵便番号からのデータベースだと処理が難しくなりやすい

221
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/30 10:31:28
俺の経験では全自動は絶対に無理
ざっくり作ったあと人間の目でチェックして、例外を発見するたびにIFをどんどん追加するしかない

郵便会社が作ってる一覧を見ても、地域によっては複数の住所が「その他」でまとめられてる場合が
けっこうあるし、番地の表記の揺れなんかはどうしようもない

役所が字を付けるかどうかは、それこそ地域による
統一ルールは存在しないので

222
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/31 18:23:08
初歩的な質問かもしれなくて申し訳ないが、散布図や折れ線グラフの時に原点がデフォでは左下だけど右上にしたい場合はどうすればいいの?
コメント2件

223
名無しさん@そうだ選挙にいこう[]   投稿日:2016/12/31 18:34:07
>203
ありがとう

224
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/31 18:46:44
>222
分からん。多分一発でやる方法は無い気がする
どうしても必要ならカメラ機能で反転させるかvbaを使うと思う

225
名無しさん@そうだ選挙にいこう[sage]   投稿日:2016/12/31 19:21:55
>222
やりたい事はこんな感じかな?

それぞれの軸を選択して 右クリック→軸の書式設定で
「軸を反転する(C)」へチェック

右上なら 縦軸・横軸両方 反転させる

226
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/01 16:29:54
あけおめ

227
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/01 20:22:46
あけおめです
昨年このスレでたくさん学びました
ありがとうございます
自分も精進しつつ、今年もよろしくお願いいたします

228
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/03 03:45:44
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

素材1 素材2 素材3 素材4
ああ いい うう ええ
かか いい ええ おお
ささ しし うう いい
ああ いい うう ええ
(以下大量データあり)

のように素材として区別できる内容が4列にわたって複数行入力されています
これらを単純に素材とその個数の一覧にしたいのですが、
ピポットテーブルで値に素材1〜4、行ラベルに素材1〜4を入れても
素材1〜4の組み合わせが何件という表示にしかなってくれず素材一覧とそれらの個数という表示ができません
複数フィールドをひとつのフィールドとして集計してくれる仕組みはありませんでしょうか?
コメント1件

229
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/03 04:21:32
>228
それは無理
Excelの基本はデータベースだから、1列に並んでないデータはできる処理が限定される

いっぺんに集計したいならCOUNTIFが一番早い
どうしてもピボットでやりたいなら列ごとに分けて個数をカウントしたあと数式なりで足すという2段階に分けるしかない
コメント1件

230
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/03 09:31:11
1項目づつのバラバラの文書って
何がいいと思います?エクセル?

お出かけ 立山に登った
朝      カラスがいなかった

みたいなものが数千ある

231
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/03 09:49:27
利用目的による
あとアプリの専用形式じゃなくて
CSVファイルとかのテキスト形式という手もある

232
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/03 10:59:39
【OS:Windows7】・【 バージョン Excel 2010】・【VBA:いいえ】・【VBAでの回答:否】
[状況]
・A列には各員の名前とそれに付随する項目が名前の以下に続きます。項目の内容は全員同じではありません。
・各員の境界は空白行があります。
・1行目には(B2から)1〜12まで月の表記があり、A列の各項目はそれぞれの月に応じたデータが入っています

          1   2   3   4  〜月
 山田
 勤務時間
 休日出勤
 
 田中
 勤務時間
 休日出勤
 有給
 交通費
 
 佐藤
 勤務時間
 休日出勤
 交通費
  (↓以下人員が続く)

[やりたいこと]
外部からこのデータを参照する際、名前+項目+月を元に参照するにはどうすれば良いでしょうか?
例)"田中" "休日出勤" "3" =田中の3月の休日出勤

INDEX・MATCHやSUMPRODUCT ROWなどで色々と要素を分解して組んでみたのですが、うまく動かず。構造としては
.螢好帆澗(A:A)から、⊂魴錣帽腓Ω〆範囲の始点(田中)と、"始点の次に来る空白セル"を終点に指定。
◆Νで決めた範囲でのみ「項目」を探す。コ催項目に月の条件を加える
ということだと思うのですが、ご教授願いませんでしょうか?
コメント2件

233
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/03 11:44:28
>232
テンプレなんでそんな改変するの?見づらいんだけど

とりあえずその典型的なクソシートは作り直したほうがいい。
名前 項目 年 月 内容 備考欄
山田 勤務時間 2017 1 8:00 覚書
こういう6列にすればどんなデータを作ることも可能になる
正規化とかでぐぐれば何故こうなるのか分かると思う

あんまりやりたくないけどそのまま行くなら
作業列(今回はNO列)を追加し、それをキーに引っ張ってくると良い
http://www.dotup.org/uploda/www.dotup.org1112868.xlsx.html

そのままvbaなしでデータを引っ張ってくるのはキツすぎるしアホらしい
コメント2件

234
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/03 18:18:20
>229
ないんですね
ありがとうございます
素材1〜4それぞれでテーブルを作ってそれらをさらにまとめることにしました

235
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/03 19:40:17
>233
> テンプレなんでそんな改変するの?見づらいんだけど
32行に収めるためでないか?

>232
提案としては、>233の言うとおり。
神(=紙)の様式にこだわって、見てくれだけどうこうしていたら、生産性が上がらない。

当然、後で時間外や有給取得の集計やらをするのだろうから、
元帳の作りは、フィルタやピボットを使うことを想定すべし。
平均やグラフ等のデータ分析は、そこを起点にする。

入力用画面が欲しければ、1日分だけで別に作る。
そうなってくると、VBAを使わなくてもフォームが作れるAccessの方がやりやすい。
グラフなんかはAccessから吐き出すor連係させて、Excelでやった方が使いやすいけど。

236
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 10:06:14
神エクセルって単語たまに見るけど流行ってるの?
あんまり好きじゃない。意味がわからない
コメント2件

237
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 11:43:22
>236
CONCAT関数の登場で、データベース化自体はやりやすくなったような

238
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 11:48:17
そんな関数があったのか!
超便利だな

239
質問です。[sage]   投稿日:2017/01/04 13:06:36
【1 OSの種類】 Windows10
【2 Excelのバージョン】 Excel2016
【3 VBAが使えるか】 いいえ
使えないので、関数で教えてくださると助かります
【4 VBAでの回答の可否】 可
頑張ってみたいと思います。


Excelに関する質問です。

1月10日 ○
1月11日 ○
1月12日 ×
1月13日 ○
1月14日 ○
1月15日 ○
1月16日 ×
1月17日 ×
1月18日 ○
1月19日 ○
1月20日 ○
1月21日 ○
1月22日 ○

以上のような日付に対して○と×で判定を行う表を
作りました。
今日の日付を1月22日とした時に、
22日から数えて、「直近の連続した○の数」を求めたいです。
今回の例だと、○の数が5個なので
「5」と表示させるようにしたいです。

回答よろしくお願いします。
コメント2件

240
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 13:57:09
>236
好き嫌いはともかく意味はググれ
ネーミングは置いといても主張してることには、とくにこういう専門スレの常連なら大半は同意できる内容だから
コメント1件

241
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 13:58:00
>239
今日が×だった時は0個でいいの?
コメント2件

242
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 14:00:08
作業列にその行から下5行の○×を連結する式をつくって ○○○○○をフィルタ

243
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 14:14:31
>241
だけ知りたいね
なんとなく○以外ありえない処理のような気もするけど

244
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 16:23:34
B列が○×として、これじゃいかんの?
C列=if(B2="○",C1+1,0)

245
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/04 17:21:03
みなさん、回答ありがとうございます

>241
そうです
×が入ってしまった場合は、あらためて0からカウントする形にしたいです

246
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 18:11:48

247
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 18:48:35
今日の行までで最後の×が出た行を見つけるとかってできるの?

248
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/04 19:28:45
作業列使えば余裕

249
解決しました[sage]   投稿日:2017/01/04 20:19:57
239です。
問題が解決しました。

みなさまありがとうございました。

250
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/05 23:57:30
>240
それさ、meanじゃなくて、こんなのクズ、訳わかんない、の意味わかんない、でしょ
訳わかんない意味わかんない

251
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/06 11:40:16
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
外部リンクを含んだ部分をコピー、貼り付けしてから置き換えすると、処理が遅いんです。
一度、貼り付けして保存した後だと、処理が一瞬で終わります。
何か設定とかあるんでしょうか?

例えば、ファイル1 の
「A1〜T1」 まで何らかの数字が入っていたとします。
ファイル2 の「A1〜T1」に、
ファイル1の「A1〜T1」を参照しています。
その時点で双方保存完了しているものとして、
ファイル2 の「A1〜T1」をコピーして、
「A2〜T2」に貼り付けた後、
そのまま「2」を「1」に置き換えますと、
1セルごと処理しているような感じで時間がかかるのですが、
貼り付けした後、一度上書き保存した後なら、
瞬時に置き換えできます。

以前のExcel2007の時も最初同じような感じで、
いろいろと調べた結果、なにかを行ったことで、
一度保存しない状態でも処理が早くなった記憶があります。
どなたかご存知でしょうか?

252
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/09 00:24:19
【1 OSの種類】 Windows7
【2 Excelのバージョン】 Excel2013

A1にベースとなる西暦、B1が何日後かの数字、C1がA1+B1で計算された西暦、D1がC1を参照した曜日表示(=TEXT("aaa"))の計算式が入っています
このD1の曜日が土曜なら青色フォント、日曜と祝日なら赤色と表示する方法はありますでしょうか?
条件付き書式だと少し違うような気がしまして…
コメント6件

253
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/09 00:39:35
>252
条件付き書式でいけると思うが
違うと判断した理由は何?

254
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/09 00:44:14
祝日一覧みたいなシートを1枚用意すると作りやすい。
countif使って、条件付き書式で

255
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/09 00:45:36
>252
A1は西暦じゃなくて、年月日が入ってるのよね?
条件付き書式でできると思うけど、どんな数式を設定してうまくいかなかったの?

256
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/09 06:48:20
祝日の処理でひっかかったんと違う?
処理したい日付の範囲が何年にも渡る場合、一覧表を正確に作るだけでもかなり手間がかかる
誰かが作ったのをネットで探した方が早い

257
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/09 06:50:48
>252
D列じゃなくてC列のweekdayと祝日にあるかの、条件付き書式で良いじゃん
あと、C列の表示形式に(aaa)を入れれば、D列は要らなくない?
コメント1件

258
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/09 07:46:41
当然、振替休日の月曜も赤だろ?
数式だけじゃ難しいな

一覧表と比較するしかないか
祝日もよく変わるから数年分とか作ってもムダになりそうだから
来年度分くらいで良いんじゃない?
コメント1件

259
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/09 12:44:11
>258
振替休日や会社の創立記念含め一覧作って前に作れたけどなぁ

>252
既出だが祝日一覧とweekdayだったっけな
土曜日をブルー、日祝振替を赤
weekdayを条件書式に入れる
月曜始まりか日曜始まりも決めて
自分は他にもセルをシマシマに色つけたから、条件書式の優先順位を間違えず並べること
いまExcelあけられないんだけど、weekdayでひと手間かけた記憶
252と違うのは2017/1/1(日)と表記させていて曜日だけ抜き出しではないこと
年月日の作業列を設けてそれをD列に反映させる条件書式はどうだろう?
結局はっきりした日付表記がないのが要因だよね?
A列が見せてるのが西暦だけ書式設定で見せてて実は日付入ってるかが謎

260
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/09 12:49:51
>257
そうだね

261
254[sage]   投稿日:2017/01/09 16:17:43
>252
http://fast-uploader.com/file/7039501329822/

簡単なので作れたと思うけど、参考までに。
1回作っておくと、あとは使いまわせばいいので楽です。
祝日一覧はどこかから拾ってきたけど、たぶん合ってる。まあ自己責任で。
シマシマにしたいなら条件をもうひとつ付け足してもいいけど、
テーブル機能を使うと簡単です。テーブルのショートカットはCtrl+T
コメント1件

262
252[sage]   投稿日:2017/01/09 22:40:53
>252です
会社だと2chNGなので色々と試してましたがやはり祝日が上手く行きませんでして…
帰って来てレス見て色々とご意見いただきまして皆様ありがとうございます

>261
DLさせて頂きました
これを改版して使わせて頂きます!
コメント1件

263
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/09 23:34:20
>262
祝日が赤にならないってこと?

264
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/10 16:24:47
セル範囲の増やし方について
B1=(A1:A30)
B2=(A31:A60)


のように例えば30ずつ増えていくような場合
簡単にコピペできるオートフィル的な方法はありませんか?
コメント1件

265
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/10 16:25:25
↑関数抜けましたが範囲だけの質問です

266
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/10 17:26:14
>264
そのままだとややこしいからSUMに突っ込んだ
B1=SUM(INDIRECT("r"&(ROW()-1)*30+1&"c1:r"&ROW()*30&"c1",0))

267
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/10 17:26:35
あとoffsetでもいけるはず
好きな方で

268
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/10 18:36:10
$R$1に数値入れて範囲を可変させるために↓みたいな計算式にしたんだけど

 =IF(ROW()-ROW($R$1)<$R$1+1,"",
 (O3-OFFSET(O3,-$R$1+1,0,1,1))/(J3-OFFSET(J3,-$R$1+1,0,1,1)))

これをINDEXで代用できるかな…OFFSETだとマクロが遅くなってしまって
再計算を止めるとマクロのほうがおかしくなるのでマクロをあまりいじりたくないんだけど
コメント1件

269
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/10 19:00:19
>268
数式から何がしたいかわかんねぇ・・・
ワークシートをアップしてくれれば根本的なことを助言出来るようなきがする

それと、vbaの再計算は切った方が良いと思う
vbaの大きなメリットが失われる
再計算はActiveSheet.Calculateでできるから、必要な時だけにしたほうが良い
再計算、たまにしない時があって怖い

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'ここに処理
'再計算
ActiveSheet.Calculate
'別の処理
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic
コメント2件

270
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/10 19:31:50
>269
データが上から下に行くほど新しくなって、$R$1でパラメータ数値を入れて(例えば500)、500行を超えたところからの
O列の基準セルから数値分上に遡ったO列のセルの変化率((O502-O3)/O502)を求めて、同じようにJ列の変化率で割る、というのがやりたい
言われたように再計算止めると、マクロで途中どうしても再計算しないといけない箇所があるから止めるとおかしくなる
再計算必要なところだけ再計算をかませてからまた再計算止めると、再計算かませたところでOFFSET関数がボトルネックになってるのか物凄くマクロが遅くなる
揮発性関数じゃないもので代用できないかものかと…

271
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/10 19:43:48
>269
>ワークシートをアップしてくれれば
「基準セル」とか「数値分」とか言われても分からない

まぁ
 =IF(ROW()-ROW($R$1)<$R$1+1,"",
 (O3-OFFSET(O3,-$R$1+1,0,1,1))/(J3-OFFSET(J3,-$R$1+1,0,1,1)))
この式ぐらいなら超簡単なので全部vbaにした方が早いだろう
こんなやり取りしてる間に終わってるぞ

272
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/10 23:14:09
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否

A列とB列の合計をCに出したいとします
C1=A1+B1
と入力します

A1,B1,A2,B2と打った時、自動的にC2に=A2+B2と入るような機能はないでしょうか?

273
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/11 03:15:03
1行目に見出しが入ってもいいなら、テーブル機能を使えば簡単にできます。
コメント1件

274
273[sage]   投稿日:2017/01/11 07:58:20
補足
テーブルでも設定すれば見出しなしにもできますね。

275
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/11 09:03:21
>273
おー、ありがとうございます
これは便利ですね、使っていきます

276
名無しさん@そうだ選挙にいこう[sega]   投稿日:2017/01/13 19:22:45
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否

既にデータがありますが、置き換えますか
という確認ダイアログを常にはいとして非表示にしたいので
やり方を教えてください

277
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/13 19:25:57
vbaでしか無理です

278
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/14 08:44:24
教えてあ下さい。
いちいちPERSONALというエクセルファイルが自動で立ち上がる。でなくしたい。
コメント1件

279
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/14 10:36:02
ん?立ち上がるの?
ExcelのバージョンとかPERSONALフォルダどんなExcel Bookが保存されているか
書いた方が解決できるかもしれない。

280
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/14 14:49:58
(1) シート見出しの画面上部への配置変更
(2) シート見出しの文字色変更

【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

2016になってもいまだに標準で変えられない糞仕様
こんなの3,4以前の話だと思うが
コメント1件

281
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/14 14:55:16
(1) シート見出しのウィンドウ上部への配置変更方法
(2) シート見出しの文字色変更方法

【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2007以降
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

2016になってもいまだに標準で出来ない糞仕様
こんなの【3】, 【4】以前の話だと思うが

282
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/14 15:21:45
同じ質問を毎年見る

283
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/14 15:58:44
シート見出しを上部よりシート数が大き時に2段重ねに
出来るようにしてほすい

284
名無しさん[]   投稿日:2017/01/14 18:08:37
無料誹謗中傷対策のブッダワークス
http://www.buddha-works.net
コメント1件

285
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/14 18:56:08
>280
誰も気にしてないから永久に作られることはないと思う
必要ならvbaでフォーム作ったら?

>284
2段以上はかなりほしいね
古いシートを改良する時、大量のほっそいシート見出しを見ただけでやる気が飛んで行く

286
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/14 20:54:49
>278
そのファイルを削除すればいいよ
コメント1件

287
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/15 13:57:52
>286
どうやって削除します?
コメント3件

288
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/15 14:30:02
>287
パーソナル〜が開いたらF12で名前をつけて保存しようとすると場所が分かる
消す

289
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/15 14:34:42
>287

PERSONALってマクロ??
コメント1件

290
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/15 15:36:08
>287
キーボードにDELキーがあるでしょ?

291
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/15 16:16:17
>289

マクロです。

292
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/15 19:52:45
【1 OSの種類         .】 Windows7 Professional 64bit
【2 Excelのバージョン   】 Excel2016 64bit
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

Excelは2003,2007,2010と追加インストールしてきましたが,このたびOSの再インストールにより,2016だけをインストールしました。すると困ったことがおきてしまいました。
今まではExcelを起動すると「アドイン」タブ内にPERSONAL.XLSに記載してある「タイトル▼」が表示され,▼をクリックすると16個の各マクロがプルダウン表示され,各マクロが実行できていてたのですが,「タイトル▼」が表示されなくなってしまいました。
しかし,PERSONAL.XLSは読み込まれているようで,「マクロ」からはPERSONAL.XLSに記載してある16個の各マクロが実行できます。
このPERSONAL.XLSは相当昔にネットからダウンロードしたもので,多少の改変をしてExcel2003からずっと使ってきたものです。
PERSONAL.XLSファイル自体を開くと,以前のように「アドイン」タブ内にPERSONAL.XLSに記載してある「タイトル▼」が表示され,▼をクリックすると16個の各マクロがプルダウン表示され,各マクロが実行できます。
PERSONAL.XLSは,C:\Users\○○○\AppData\Roaming\Microsoft\Excel\XLSTARTに入れてあります。
PERSONAL.XLSBファイルに作り替えてみましたが,効果はありませんでした。
Excel15.xlbの削除も行いましたが効果はありませんでした。
解決方法を教えていただきたいです。よろしくお願いいたします。
コメント6件

293
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/16 01:41:33
>292
解決策にはならないけど

Execl2013から SDI(シングルドキュメントインターフェース) になった影響かも
"「アドイン」タブ内に「タイトル▼」を表示する" 部分を 作り変える必要あるかも
コメント1件

294
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/16 18:44:40
>292です。>293さん,返答ありがとうございました。関係がありそうな部分を貼り付けてみます。作り替える部分はわかりますでしょうか?
Sub auto_open()
Menu削除 1
Menu追加 1
Add_RightClickMenu 1
End Sub
Sub auto_close()
Menu削除 1
End Sub
Sub Menu追加(num%)
Dim myBar As CommandBar
Dim myCtrl As CommandBarControl
Menu削除 1
Set myBar = CommandBars("Worksheet Menu Bar")
Set myCtrl = myBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
With myCtrl
.Caption = "Tool(&A)"
.Visible = True
.Controls.Add Type:=msoControlButton
.Controls(1).Caption = "全シートをHOMEポジションに"
.Controls(1).OnAction = "To_Home"
.Controls(1).FaceId = 1826
     ここにあと15個のマクロが記述してあります。
  End With
End Sub
Sub Menu削除(num%)
Dim myBar As CommandBar
Set myBar = CommandBars("Worksheet Menu Bar")
On Error Resume Next
myBar.Controls("Tool(&A)").Delete
On Error GoTo 0
End Sub
コメント1件

295
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/16 18:45:47
追記
ちなみに右クリックメニューには正常にpersonal.xlsのマクロが追加されています。

296
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/16 20:33:29
>294
Excel2016でPERSONAL.XLSにしてテストしてみたけど問題ないな

↓これプロシージャないから エラーになるのでコメントにしたけどw
Add_RightClickMenu 1

なんか単純に

ファイル→オプション→リボンのユーザ設定→[メインタブ]
で アドインに チェック入ってなかったり してない?
コメント1件

297
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/16 23:27:57
>292です。
>296さん、検証ありがとうございました。もちろんアドインタブにはチェックが入っています。アドインを別に2つ入れてあって、それらは正常にアドインタブに表示され、実行できますので。

298
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/17 19:59:00
>292です。
試しに会社のPCのExcelr2013にpersonal.xlsを入れてみたところ,正常に表示され,動作もします。
ちなみに,Excelのオプション⇒アドイン⇒使用できないアイテムにもpersonal.xlsは表示されていません。
いったい何が問題なのか…

299
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/17 20:49:03
クイックアクセスツールバーにマクロを実行するアイコン表示してない?
コメント1件

300
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/17 21:50:02
>292です。
>299さん,ありがとうございます。
クイックアクセスツールバーには,personal.xlsのマクロの中でも特によく使うものを4つ登録してあります。
しかし,それはOSの再インストール前も同様でした。

301
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 03:24:27
条件付き書式の数式〜の所は範囲と範囲の比較はできないんですかね?
A2:A14とB2:B14の比較みたいな
コメント1件

302
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 06:21:14
>301
具体的に何をしたいかが 分らんが
可能だと思うぞ

303
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 06:38:43
ネットで調べた感じ無理そうだったけど
具体的にはA1:A3>B1:B3の時にA1:A3の書式を変えるって感じです

http://i.imgur.com/pVHkfJi.png
http://i.imgur.com/Jvc2bdQ.png

ちなみに関数で式は埋まってます
VBAじゃなきゃ無理かな

304
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 06:47:49
A1:A3>B1:B3の時に
↑この意味する所が分らん

A1>B1 A2>B2 A3>B3
が全て成立する時?

305
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 06:53:10
あ、そういう事です
あんま詳しくなくてすまんw

306
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 06:54:32
A1>B1 A1の書式が変わる
A2>B2 A2の書式が変わる
A3>B3 A3の書式が変わる

これがやりたい
コメント1件

307
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 07:04:14
>306
それ普通に
A1〜A3 選択して 
条件付き書式の数式〜の所に =A1>B1 とかにすると
自動的に参照変更してくれるが?

308
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 07:26:11
おおーほんまにできた!
どうもありがとう!

309
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 07:26:54
助かった

310
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/18 15:34:13
http://www.localist.co.nz/discovery?location_id=new-zealand&;q=Logistics
ここにある、企業名だけをエクセルに自動で記入したいんだけど。
誰か教えて。
コメント1件

311
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 17:38:30
>310
これでどう?
IEオブジェクトで そのURLを開いて

Row = 1
For Each objtag In ObjIE.document.getElementsByTagName("div")
 If objtag.getAttribute("itemprop") = "name" Then
  Cells(Row, "A").Value = objtag.getElementsByTagName("A")(0).innerText
  Row = Row + 1
 End If
Next

312
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 17:57:42
itemprop="name"だと関係ないタグもひっかかる
そのちょっと前のclass="listing-title leftを検索すれば、直後のテキストが会社名
コメント1件

313
311[sage]   投稿日:2017/01/18 18:04:09
>312
ん???
テストしたけど これしか引っかからないぞw

UrbanSherpa
AXIAM Plastics Ltd
Stellar International Ltd
JF Hillebrand New Zealand Ltd
FML Logistics
Priority Logistics Ltd
PTS Logistics LTD
Owens Logistics Christchurch
Cardinal Logistics Ltd
Boutique Logistics Ltd
CT Logistics International Ltd
Linfox Logistics (NZ) Ltd
Tranzliquid Logistics Ltd

314
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/18 21:04:08
みんなありがとう。
313の情報だけ自動入力したかったんだ。
1500社以上あるから手動だと疲れるから
明日仕事場行って試してみる
本当にありがとう

315
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/18 21:06:25
ちなみに、122ページ自動で入力できないよね?
自動で次のページをクリックしてくれて自動入力
コメント1件

316
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/18 21:53:32
>315
クリックするんじゃなくてURLでページが指定されてる
100ページでも200ページでも全自動で可能
コメント1件

317
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/19 07:44:38
>316
ありがとう。
会社行ったら試してみる
俺ばかだから出来るか心配だな
ちな、使うのはoffice2016

318
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/19 09:35:05
Sub sample()

Dim objIE As InternetExplorer

'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")

'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページを表示する
objIE.navigate "http://www.localist.co.nz/discovery?location_id=new-zealand&;page=2&q=Logistics"

'完全にページが表示されるまで待機する
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop

Row = 1
For Each objtag In objIE.document.getElementsByTagName("div")
If objtag.getAttribute("itemprop") = "name" Then
Cells(Row, "A").Value = objtag.getElementsByTagName("A")(0).innerText
Row = Row + 1
End If
Next

End Sub
自動で122ページまでは
どこのタグを変えればいいの?
自動で122ページは無理?
ごめんね 何度も聞いて
コメント2件

319
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 09:50:47
清々しいほどの丸投げ糞野郎だな死ねばいいのに
コメント1件

320
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 10:48:31
>319
回答者だけど丸投げの質問は割りと好きだよ。どんどん来て欲しい
一番めんどくさいのはファイル構成とか教えない人。意味がわからん
コメント2件

321
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 11:16:41
>318
URLの page=2

322
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 11:24:51
>318
全体をfornextでくくる

Sub sample()

Dim objIE As InternetExplorer

'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")

'IE(InternetExplorer)を表示する
objIE.Visible = True

'こ↑こ↓
for i = 2 to 122

'指定したURLのページを表示する
objIE.navigate "http://www.localist.co.nz/discovery?location_id=new-zealand&;page="&i&"&q=Logistics"

'完全にページが表示されるまで待機する
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop

Row = 1
For Each objtag In objIE.document.getElementsByTagName("div")
If objtag.getAttribute("itemprop") = "name" Then
Cells(Row, "A").Value = objtag.getElementsByTagName("A")(0).innerText
Row = Row + 1
End If
Next

'こ↑こ↓
next

End Sub
コメント2件

323
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 11:25:13
試してないから動くかわからんけど、ガンB慣れ

324
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 11:32:19
>320
ほんとあなた神ですね

325
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/19 11:43:23
>320
ありがとう
他の事もしろって言われたから
後で試してみる
4日で企業名、企業HPアドレス、メールアドレス打ち込めって言われたから
死んで欲しいけどサラリーマンだからしかたがない

326
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/19 11:44:11
>322
320と同じ人だね?
ありがとうね

327
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 12:07:19
すまん、>322全然ダメだな
作り直してテストしたら取得まで完了したわ
1ページ目だけ取得してないからそれだけ追加してくれ
http://www.dotup.org/uploda/www.dotup.org1128794.xlsx.html

マクロは危険だからテキストで置いとくぞ
http://www.dotup.org/uploda/www.dotup.org1128797.txt.html
コメント1件

328
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/19 13:36:27
>327
まじかよ
本当にありがとう。
心から感謝の意を申し上げます。
これで1日短縮できたよ。
ハゲ課長に怒られなくてすむ
まじでサンキュ
2ch嫌なやつ多いけど親切にしてもらって
本当にありがとう。
何回ありがとうって言ってもいいきれないわ。

329
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/19 13:41:31
何もしてあげれないけど
気持ちだけ置いておく
来年の2月まで有効だと思う。
ファイルは公式からインストールしてくれ
お金出して買った物だから

AVG Internet Security 2016 key: 8MEH-RSTBP-STWJM-2TVHA-XR9S9-LEMBR-ACED
AVG Internet Security 2016 key: 8MEH-RQKOS-RYW4R-FKPYA-2SKBH-SEMBR-ACED
AVG Internet Security 2016 key: 8MEH-RSTBP-STWJM-2TVHA-XGLR6-LEMBR-ACED
AVG Internet Security 2016 key: 8MEH-RPTGT-KMHL7-EEEVR-KB88D-LEMBR-ACED
AVG Internet Security 2016 key: 8MEH-RD8B8-2G6G3-Z6YQA-E3KGN-GEMBR-ACED
AVG Internet Security 2016 key: 8MEH-RQKOS-RYW4R-FKPYA-2N2QF-SEMBR-ACED
AVG Internet Security 2016 key: 8MEH-RTN2Z-UDAMK-6RWGA-AHFF3-VEMBR-ACED
AVG Internet Security 2016 key: 8MEH-R9Q3V-ZHG2T-92KCR-AFH3V-YEMBR-ACED
AVG Internet Security 2016 key: 8MEH-RFGOH-EM4CS-8ZNAR-YALCL-8EMBR-ACED
AVG Internet Security 2016 key: 8MEH-RSTBP-STWJM-2TVHA-X3HZ2-LEMBR-ACED

330
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/19 13:43:34
追記 
3PC有効だと思う
俺も現在使用中だから
不安だったら使わなくていい
インストファイルは公式からね

331
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 13:49:44
その御礼はちょっと怖いゾ

332
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 13:51:48
気持ちだけもらっとくよ
なんか下手に使うと不正アクセスにひっかかりそうだ
あんまりキーとかかかないほうがいい

333
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/19 14:05:27
まじで購入したものだから
ここで晒せてあげれる物がなかったから
ごめんね
本当に感謝してるから
ありがとう!

334
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 15:31:11
Excel初心者です。

(生き物A)×(生き物B)=キメラ
生き物の単語をランダムで表示させてキャラクターデザインのアイデア出しをしたくて、=RAND()を使用して画像の通り作ったのですが、並び変える度に半分ほど左右の単語が揃ってしまいます。

完全にバラバラになるようにしたいのですが何か方法があれば教えていただきたいです…
http://i.imgur.com/0RcKW0L.jpg
コメント3件

335
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 15:34:23
>334
カオスなことやってるなぁ・・・
RANDで出た数字を値にして貼り付け、値にした列で並び替えれば?
コメント2件

336
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 16:06:36
範囲が自動拡張されて、セットで並べ替えされているとか
コメント1件

337
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 17:38:11
>335
ランダムの数字をコピーして普通の数字にするということでしょうか…?
それだと並び替えても数字の大きさ順に並ぶことになる…?私の認識が違うんでしょうか。。

>336
範囲が拡張…仕様の問題なんでしょうか。
だとしたら仕方ないですね…

338
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 17:48:47
>334
たとえば100個欲しくて半分使えないなら、200個作って使えないやつを捨てればいい
コメント1件

339
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 20:29:39
>334
例えば100個の文字なり画像があったとする
これらを被らない(ダブらない)ように出現するには、>335が言うように
事前に一括で100個をrnd()で順位をつける
これを順番に表示すれば被ることはないぞ
コメント1件

340
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 20:40:15
>338
ダブった物だけ消したのですが、並び替えるとなぜか1割ほど固定の単語が揃ってしまいます…

>339
初心者すぎていまいち飲み込めないのですが、画像の内容のようなことをすればいいということですよね…?
http://i.imgur.com/FSyaJEw.jpg

341
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 20:46:40
そうそう

342
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 21:18:17
頂いたレスと画像のサイトを参考に作ったのですが、順位の数字はダブらずに表示できるようになりました…が、日本語を付け足すとオレンジ欄とブルー欄揃ってしまうのはなぜなんでしょう…
http://i.imgur.com/kVBtxTL.jpg
http://i.imgur.com/HuSSP7H.jpg

例)オレンジ欄の「ぼんど」に対するブルー欄に必ず「おふぃす」がくる
コメント1件

343
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/19 21:36:55
>342
よくわからんが、、手作業のようだし、、
オレンジ・ブルーを別々にしたいのなら
ブルー欄をソート後オレンジsortだね
コメント1件

344
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 21:50:21
>343
一回のソートで両方入れ替えたかったのですが、やはり片方ずつが確実ですね…
コメント1件

345
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 22:04:04
>344
説明めんどいから作ったぞ
http://www.dotup.org/uploda/www.dotup.org1129224.xlsx.html

Dにリスト、Eが作業列
A・Bが結果
A1:A10のA6:A10の部分をB1:B5に持っていってる感じ

数式は頑張って読んでくれ
コメント2件

346
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/19 22:09:41
>345
中身見てないけど俺のアイデアと一緒だ
マクロ使わないならこれが一番いいだろうな

347
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 22:26:44
>345
作って頂きありがとうございます!!
アルファベットを単語に書き換えて、無事に被らず入れ替えと追加も出来ました…!

Excel始めて数時間なのに無謀だったと反省しております…
レスして下さったみなさんありがとうございました。

348
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 22:38:17
数時間でそれか
ナカナカヤルジャナイ

349
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 22:44:48
台本なくしちまった 次のお題は?

350
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/19 23:25:20
>292です。
しつこくまだやってました。ちょっとだけ前進しました。
アドインから「分析ツール−VBA」を外すことでpersonal.xlsbがアドインタブに現れました。
何の関係があるか,わかる方いらっしゃいますか?

351
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/20 11:03:55
Excelでネット上から数値を自動取得してるのですが
A>Bの時にアラートを鳴らすとかってVBA抜きでできますか?

352
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/20 11:17:02
無理っすvba必須っす

353
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/20 11:18:05
わかりましたどうもです

354
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/20 11:18:35
特定のセルの色を変えるとかじゃだめなの?
コメント1件

355
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/20 11:25:00
セルの色を変えて目視で確認ってのホントやめてほしい
目が疲れる

356
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/20 11:51:46
>354
最小化してたりしますからね
音じゃないと気づけないんです

357
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/20 17:57:27
確かに、条件付き書式で音を鳴らすというのがあっても良いよな・・

358
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/20 23:10:14
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 いいえ
aさん  1/19
bさん 1/20
cさん 1/19
dさん 1/21
eさん 1/20
1/19と入れると aさんcさんが表示される
オートフィルタ無しでお願いします
コメント4件

359
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/21 00:24:57
>358
A列に名前、B列に日付とする
C1に日付を入れるとD列に名前が出るようにするには
D1=IF(C$1=B1,A1,"")を下にオートフィル
コメント1件

360
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/21 08:11:50
>358
表示だけでいいなら条件付き書式で1/19以外なら文字色を白にするとか

361
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/21 08:56:43
>358
一覧にしたいなら関数じゃムリ
VBAが無理ならピボットテーブル使うよろし
コメント1件

362
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/21 10:03:24
>358
a列に1列挿入して、そこに数式(
日付入力欄に入った日付が何個あるか数えて順番を付ける数式)
あとはVLOOKUPで1,2....番目のを呼び出す数式入れる

363
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/21 13:08:07
対象がどれくらいあるかにもよるよなー
ある程度限られてるならいいけど、大量にあるなら
関数を事前に入れておく方式だとクソ重くなる
コメント1件

364
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/21 14:48:43
>361
無理じゃないよ

365
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/21 18:46:12
>363
なら解決策示せよタコ

366
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/22 02:06:49
>359
答えでてるやん

367
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/23 08:39:11
Excel2013
Windows10

たまにExcelのファイルが立ち上がりがものすごく遅いときがあったり開かない場合があるが、一体なにを裏で通信してんだよ
超イライラするわ
コメント1件

368
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/23 08:55:03

369
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/23 09:06:45
>367
俺は無いよ
設定かPCが悪いと思う。クリーンインストールなど試してみては??n

370
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/23 17:25:12
10ならDefenderだろな。マクロウイルスチェックしてる奴

371
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/23 22:44:25
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 いいえ
オートフィルターで選択した値(文字列)を取得する関数をググったら、こんなのが出てきました。
https://oshiete.goo.ne.jp/qa/8689099.html
=INDEX(C:C,MAX(INDEX((SUBTOTAL(3,INDIRECT("C"&ROW($C$2:$C$100)))*ROW($C$2:$C$100)),)))
例えば、A1から、
"月日","区分","エリア","金額"
4/3,A,北海道,300
4/4,A,東北,200
4/4,B,関西,100
4/5,A,関東,200
4/6,A,関東,100



というように、4列の項目で、A2:D100に99行のデータが入っているとして、
確かに上記の式を当てはめれば、オートフィルターでC列を1つ(例えば「関東」)に絞り込んだときに、
目的の"関東"が得られたのですが、この式の意味が分かりません。
・=ROW($C$2:$C$100)は常に"2"だが、目的は何?
・=SUBTOTAL(3,INDIRECT("C"&ROW($C$2:$C$100)))は、
フィルター選択前の先頭行(例:北海道)を選んだ時が"1"で、あとは"0"にしかならないが、目的は何?
・なぜ、SUBTOTAL(3,・・・)*ROWとするのか?配列数式の条件部分でもなさそうだが、意味は?
・2つ目のINDEX関数の中と思われる、後ろから4桁目の","の後に、何が省略されている?
・MAXはフィルター選択後の最終行の模様
・2つのINDEX関数は、あくまでセル範囲形式?
・最初のINDEX関数の"C:C"をセル範囲家形式の「参照」かと思って
 $C$2:$C$100にしたら#REF!エラーになるのはなぜ?


どなたか解説または詳しいサイトを教えていただけないでしょうか?
コメント1件

372
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/23 22:56:10
なんかよく分からん
=C2
じゃあかんのか

373
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/24 09:16:43
>371
完全に説明しきれてないけど こうゆう事かと
まず
一つ()が多いのと一部引数を省略してるから 手直しすると
=INDEX(C:C,MAX(  INDEX(SUBTOTAL(3,INDIRECT("C"&ROW($C$2:$C$100)))*ROW($C$2:$C$100),0)  ))
んで
INDEX(SUBTOTAL(3,INDIRECT("C"&ROW($C$2:$C$100)) * ROW($C$2:$C$100),0)
は配列処理してる
SUBTOTAL(3,INDIRECT("C2")) * ROW(C2)
SUBTOTAL(3,INDIRECT("C3")) * ROW(C3)



 それぞれ オートフィルターで
 表示なら   1*行番号
 非表示なら  0*行番号

もし
2,4,7行が表示されてるなら
  2,0,4,0,0,7,0,0,0,0・・・・
という配列ができる
んで それのMAX値の 7行目のセルを表示してる


↓を直接Max関数に入れれば良いように思えるけど
SUBTOTAL(3,INDIRECT("C"&ROW($C$2:$C$100)))*ROW($C$2:$C$100)
なぜかダメなのよね(理由は知らん)
で INDEX(・・・,0)を介してる(これでOKな理由も知らん)

374
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/25 13:23:18
【1 OSの種類         .】 Windows07
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 どちらでも

解決してほしいっていうよりも単純な質問なんですけど・・・
条件付き書式の数式のところに計算式をよそからもってきて貼り付けることってできないんですか?


条件付き書式に数式を使ってってできるじゃないですか
あれでIFだのORだのEXACTだのFINDだのISNUMBERだのと
いろいろと使って計算式組んだわけなんです
そしてその結果を試してみたらなんかうまくいってない場所がある

どこが悪かったんだろうと条件付き書式の数式をコピーして
空いてるセルにその計算式を貼り付けてみて
そこでよくよく見てみるとEXACTの中身が片方エラーになってておかしかったとか
いくつか原因がわかったわけです
その場所で計算式を手直しして、それをコピーして条件付き書式へと逆輸入しようとしたんですが
あそこって文章の貼り付けはできないもんなんでしょうか・・・

手入力で打つ時でもセルに打つ時と違ってガイドみたいなの出ないんですよねえ
コメント1件

375
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/25 13:34:27
可能なものも無理なものもあるし
書き方を変える必要があるものもある
ものによるから内容見ないと何とも

376
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/25 14:00:34

377
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/25 15:24:02
>376
な、なんですとー?!
あれ、本当だ・・・こいつ、できるぞ!

お騒がせしました、憑かれてたのかな・・・・

378
358[sage]   投稿日:2017/01/25 23:48:32
みなさんありがとう

379
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 14:48:05
以前はありがとうございました。

http://earthmover.co.nz/
上のサイト内の会社名、住所、電話番号をエクセルに記入したいのですが
膨大な数の上、重複ばかりで困ってます。

何か名案はありますのでしょうか?
コメント1件

380
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 15:11:39
>379
余裕でできるけど、際限なさそうなので教えない。せめて少しぐらい自分で頑張れ
以前あげたvbaコードを改修して自分でやれるとこまでやれ

381
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 15:37:50
一応試したのですが、ページのURLが出ないのでどうにもなりません。
以前のlocalistで土木業は記入出来たのですが
今回のページはさっぱりわからないのです。
ソースを見ましても私には分かりませんので
お尋ねした次第です。
気分を悪くされたのでしたらすみません。
コメント2件

382
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/26 15:47:22
>381
ページのソースを見て、真ん中よりちょっと下の方、この行がキモ

<input type="hidden" name="more" value="80" />

value=80の部分で、検索結果の80番目以降を表示って指示になってる
この数字を変えていけば、たぶんクロールできると思う
コメント2件

383
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 16:03:44
>381
やってたのか
そういうのはPOSTっていうんだよ。POSTしてhtmlを取得する。パラメータはPOSTパラメータ。>382の通りinputの中に入っている
前回のURL末尾に付く&page=1みたいなのはGETパラメータ。
今回はGETとPOSTが組み合わさっている

面倒なのでサンプルを作っておいた
以下の二つを変動させればページの取得は簡単にできると思う
url = "http://earthmover.co.nz/index.php?control=MerchantsByArea";
paramStr = "&location=1899&more=60"

Sub a()
'-----------------
'リクエスト生成
'-----------------
'URL(必要に応じて変更)
Dim url As String
url = "http://earthmover.co.nz/index.php?control=MerchantsByArea";

'パラメータ(必要に応じて動的に生成)
Dim paramStr As String
paramStr = "&location=1899&more=60"
コメント1件

384
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 16:03:50
'--------------
'POST実行
'--------------
Dim xmlhttp As Object
Set xmlhttp = CreateObject("msxml2.xmlhttp")
xmlhttp.Open "POST", url, False '通り道を作って〜
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send (paramStr) 'パラメータをぽいっちょと

'--------------
'応答取得
'--------------
Dim retCd As String
retCd = xmlhttp.Status '結果コード取得

If retCd <> 200 Then
Debug.Print "error:" & retCd
Else
Dim retHtml As String
retHtml = StrConv(xmlhttp.responsebody, vbUnicode, 1041) '結果HTML取得
msgbox retHtml
End If

End Sub

385
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 16:14:59
>382
ありがとうございます。
<input type="hidden" name="location" value="1" />
<input type="hidden" name="more" value="1000" />
1000社あればこれでいいのかな?
>383
試してきます。
あまり良く分かりせんが、少し動かしてみます。
ありがとうございました。
コメント1件

386
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 16:37:02
xmlhttp.send (paramStr) 'パラメータをぽいっちょと を
xmlhttp.send (paramStr) '&param1=value=201&param2=value=40&param3=param3=value=60"
ページ数で増やしていけばよいのでしょうか?
コメント1件

387
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/26 17:06:56
>385
違う
パラメータ(location、more)はHP作成者が勝手に決めるものなので、予想しかできない

location=1899
は種類に対応しているっぽい。
cambridgeが1899、Coromandelが1850。数字の意味は知らない。

Cambridgeなら
http://earthmover.co.nz/services-cambridge.html
ページ、htmlソースの<input type="hidden" name="location" value="1899">という部分を探せば分かる

more=60
は60件以降取得の意味っぽい
何件取得するかは知らない

>386
言ってる意味がわからない
コメント1件

388
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 17:29:56
http://earthmover.co.nz/services-northland-north-island.html
上のページで4ページあるのですが
paramStr = は何を入れたらいいのでしょうか?
色々試したのですが
エラーばっかりでどうにもなりません。
コメント1件

389
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 17:44:59
Private Sub CommandButton1_Click()
'-----------------
'リクエスト生成
'-----------------
'URL(必要に応じて変更)
Dim url As String
url = "http://earthmover.co.nz/services-northland-north-island.htmll";

'パラメータ(必要に応じて動的に生成)
Dim paramStr As String
paramStr = "&location=1&more=60"

エラーは出ませんが書き込めてませんね
コメント1件

390
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 17:49:34
>387
paramStr =の意味を教えてくれてありがとう。
かなりのページがあるので
何卒お助けを
帰るに帰れないです

391
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/26 17:58:02
帰るとか帰れないとかどうでもいいよ。君の事情なんて全く興味ない。質問以外の発言はいらない
別に君が今すぐ死んでもなんとも思わん

>389
URL間違えるな。邪魔くさい

>388
別ページにPOSTする
formを検索してactionが別ページの場合はURLを書き換える。毎回書き換えてもいいかもな
<form action="/index.php?control=MerchantsByArea" method="post">
<input type="hidden" name="location" value="1">
<input type="hidden" name="more" value="40">
<input type="submit" value="More results...">
</form>

url = "http://earthmover.co.nz/index.php?control=MerchantsByArea";

url = "http://earthmover.co.nz/index.php?control=MerchantsByArea";

ついでにパラメータはこう
paramStr = "&location=1&more=20"

392
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/26 18:34:19
みなさんのお力をお借りしても
私の能力では出来ませんでした

みなさんありがとうございました

393
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/26 19:01:06
やってあげたいところだけど、延々手伝うわけにもいかんしな
無茶ぶりされてるなら会社辞めるか、vba覚えるか。
アウトソーシングでコッソリ外注するって手もあるな。手動案件で一件10円ぐらい、100件1000円ぐらい

394
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/26 19:31:37
単純にパラメータ変えるだけでクロールできればいいんだけど、
リファラとかクッキーとかチェックされると面倒なんだよな

ヤフオクが最近クロール対策を強化してきたんで、データ収集がちょい面倒になった

395
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/26 19:33:17
本格的にやろうと思うとphpとか言語ごと変えたほうが早かったりするよね
エンコードが絡むとvbaではキツイ

396
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/26 19:42:51
全部で何件あるか知らんけど、1件1円で引き受けてやってもいいぞ
ただし重複は除外せずにカウントな

397
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/27 09:45:50
仮に頼む側になったら1件1円なんて安いもんだけど
現実的にはどうやって支払えばいいんだろうね
俺が受け取る側になったとしても口座だとかこんなとこには載せたくないわw
そしてそれが俺の口座だという証明もできないな

398
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/27 13:34:48
手動で2000件ほど取得して完了しました。
ありがとうございました。

https://yellow.co.nz/
上のページにエクセルで記入してます電話番号を自動入力して検索
一時停止、継続は可能でしょうか?
画面は常に見ておりますので、手動で一時停止、続行したいのです。

399
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/27 14:45:10
もうくんなお前

400
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/27 15:02:43
もうこないです

401
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/27 15:15:44
いえまた来ます

402
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/27 17:22:39
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel10
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可

こういう流れでマクロで作れますか?
.侫ルダを指定してcsvファイルの一覧を作成
読み込んだファイルのパスを表示
I要なファイルを選んで、内容をコピー後にまとめ用のシートに転記
コメント1件

403
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/27 18:33:29
>402
可能だとおもうが

>>読み込んだファイルのパスを表示
Q1 どこに表示するつもり?

>>I要なファイルを選んで、内容をコピー後にまとめ用のシートに転記
Q2 ファイルを選ぶ方法はどのような方法を想定してるの?

なんとなくだけど
1)ファイルを開くダイアログを出して CSVファイルを選択
2)それを開く
3)まとめ用のシートに転記
で良いように思うけどな
コメント1件

404
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/27 19:25:14
>403 お答えありがうございます。

Q1:シート1の上の方に上から順番にファイル名が並ぶ
使用する目的のCSVファイルは、名前に場所と時刻が入ったCSVファイル
1日分で最大60個です、同じ場所のファイル名で時刻順に表示できるように
考えてます。

Q2:ここはまだはっきりしてません。ファイルのパスが書いたセルを
選ぶと、作業用のシートにピッとコピペする流れだけ。
目的は、ファイルを選択した順番に作業シートにファイル内容が移動する。
順番は1個のファイルだけの場合もあるし、最大5個のファイルを選ぶ場合
と2つ考えてます。
コメント1件

405
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/27 20:59:12
>404
取りあえずcsvファイルのパスをシートに表示するとこまで
ファイル一覧 という名前のシートを用意してね

Sub ファイル一覧表示()
 Dim Ws As Worksheet
 Dim fn As String
 Dim Row As Long
 Dim Fol As String

 Set Ws = Worksheets("ファイル一覧")
 Fol = "D:\Data\" '←フォルダ指定の最後の\は必須です

 'ファイル一覧作成
 Row = 1
 fn = Dir(Fol & "*.csv")
 Do Until fn = ""
   Ws.Cells(Row, "A").Value = ""
   Ws.Cells(Row, "B").Value = Fol & fn
   Row = Row + 1
   fn = Dir
 Loop

 'ファイル名順にソート
 Ws.Range(Ws.Cells(1, "A"), Ws.Cells(Rows.Count, "B").End(xlUp)).Sort _
  Key1:=Ws.Range("B1"), Order1:=xlAscending, Header:=xlNo
End Sub

406
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/28 01:52:41
どなたか教えて頂けると助かります。

VBAマクロでブックの共有を設定、共有を解除する方法は、わかるのですが、ブックの共有を禁止するコードってありますか?

今はオープン時に共有設定を確認して共有されていれば共有を解除しているのですが、オープン後にもブックを共有されたく
ないんです。ヒントだけでも頂ければ大変助かります。

407
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/28 04:53:58
自己解決しました。

ダミーのテーブルを非表示で作成してシートを保護すれば、とりあえず共有は不可能になりますね。
スマートじゃないけど。

408
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/28 05:58:57
【1 OSの種類         .】 Windows 7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

VBAで、21以上の丸数字を普通に扱う方法はありますか?
「普通」というのは、例えば
  X = ""
  If X <> ""
のように、一般的な書き方で文字や文字列の一部として…という意味です。

409
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/28 10:27:47
  X = ChrW(12881) '21
  If X <> ChrW(12881)
コメント1件

410
408[sage]   投稿日:2017/01/28 11:18:00
>409
レスありがとう
でもそれではダメでした
  X = ChrW(12881)
  MsgBox X
もちろん、MsgBox ChrW(12881) でもNG
コメント1件

411
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/28 11:26:34
>410
もちろんユニコードだからだめだよ
セルに入れて
コメント1件

412
408[sage]   投稿日:2017/01/28 12:29:52
>411
セルA1に丸20、セルB1に丸21を入れておいて
  MsgBox Cells(1, 1).Value ←丸20が正しく表示される
  MsgBox Cells(2, 1).Value ←丸21ではなく ? が表示される

そもそも、Debug.Print Cells(2, 1).Value の時点で既にNG
セルに入れたところで、最終的にVBAの中で扱えないのは同様のようです
コメント1件

413
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/28 12:36:52
VBE(エディタ)やMsgBox等が 対応してないだけで文字としては扱えるよ
Debug.Print や MsgBox で表示できないと困る状況なら無理 諦めろ

414
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/28 14:39:32
ピボットテーブルでMySQLでいうところのGROUP_CONCATみたいなことできないですかね?
ピボットテーブルじゃなくてもよいですが
Excelのバージョンは2016です

415
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/28 16:00:10
>412
ユーザーフォーム

416
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/28 20:31:25
Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hWnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal uType As Long) As Long

Sub MessageBoxStrTest()

Dim ret As Integer
x = ChrW(12881)
ret = MessageBox(0, StrPtr(x), StrPtr("title"), vbOKOnly)
Debug.Print ret

End Sub

417
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/29 19:45:23
ここまでくると、もはや「普通に」ではないと思うが…
しかし2010ならともかく、2016ですら未だに同じ問題を引きずってるというのはねw

418
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/29 20:01:40
エクセルvbaはさすがにもう何とかして欲しいぜ
何もかも古すぎる
せめてunicode

419
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/31 19:20:11
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

Excel内のVBAのパスワードを忘れた際、方法としてバイナリエディタで開いた後
DBP後の文字列を書き換える方法がよく紹介されています。
https://www.google.co.jp/search?hl=ja&;q=vba+%E3%83%91%E3%82%B9%E3%83%AF%E3%83%BC%E3%83%89%E3%80%80%E3%83%90%E3%82%A4%E3%83%8A%E3%83%AA&lr=lang_ja&gws_rd=ssl

・・・・が、もうできなくなっているのか、DPBという文字列が見つかりません。
もうできないのでしょうか?
コメント3件

420
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/31 19:39:29
>419
その方法が使えたのはExcel2003まで
Excel2007以降はできなくなった
コメント1件

421
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/31 19:41:54
>419
そのやり方で良いが xls と xlsm とでは 解析対象が違うんだけど
正しいファイルでやってる?

http://superuser.com/questions/807926/how-to-bypass-the-vba-projec...

422
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/31 19:43:07
>420
> >419
> その方法が使えたのはExcel2003まで
> Excel2007以降はできなくなった

なんとなく嫌な予感はしてたのですが・・・・そうですか。
作成者が退職しているものを編集・・・・・あきらめて1から作り直しですかね。
ありがとうございました
コメント1件

423
名無しさん@そうだ選挙にいこう[]   投稿日:2017/01/31 21:33:08
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

htmlのインポートで<p></p>のタグ内のテキストのみ抽出表示する方法を教えてください。
コメント1件

424
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/01/31 21:35:59
findとmidで
<p>

</p>
の間の文字列を抽出する
コメント2件

425
423[]   投稿日:2017/02/01 07:34:00
>424
そうではなくインポート時にです。
特定のタグ内のみに絞ってインポートしたいんです。

426
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 07:47:12
釣りかよw

427
423[]   投稿日:2017/02/01 07:55:20
もしくはhtmlの特定の<p>タグの中のテキストを参照表示する方法でも構いません。

428
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 08:12:18

429
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/01 08:13:50
>428
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

430
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 08:52:06
じゃあ無理です諦めて
代替案は>424

431
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/01 10:23:38

432
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 12:56:51
おねがいします。
例えば、A1に数値の10が入っているときに
A2に1からA1の値の10までの配列定数{1,2,3,4,5,6,7,8,9,10}を作成したいです。
A2にどう入力すればよいでしょうか?
コメント1件

433
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 13:39:07
>422
人事経由で退職者に連絡して貰ったら?
コメント1件

434
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 14:47:18
>432
どう使うのかしらんが
Function Aray(Num)
 Dim i As Long
 Dim Ans() As Long
 ReDim Ans(1 To Num)
 For i = 1 To Num
   Ans(i) = i
 Next
 Aray = Ans
End Function

A2へ Aray(A1) と入れる

435
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 17:30:09
ど素人な質問で失礼します。
新しいシートをシートの末尾、または現在のシートの右側に追加するショートカットはあるのでしょうか。
調べたつもりですが唯一出てきたShift+F11でも現在のシートの左側に挿入されてしまいます。

【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
コメント2件

436
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 17:51:16
>435
ページ移動のショートカットCtrl+PageDownを併用してみては
コメント1件

437
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 19:48:06
>433
自宅警備員ならではの迷案w
コメント1件

438
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 20:53:34
>437
そうなのか? 引き継ぎ不足なんだから普通なんじゃね?
それともお前らの業界じゃバックレ上等でケツ捲るのが常態化してんのか?
まさか俺様の才能が欲しけりゃそれなりの とか腹黒いイチモツ抱えてるのか? まぁそうなんだろうけど
コメント2件

439
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 21:28:17
>438
多分何も考えずに煽ってるだけだぞ
気にするな

440
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/01 22:28:59
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可

たぶんVBAになると思いますが、右下のバーに表示される再計算 n%の文字を
セル内でもポップアップでもいいのでリアルタイムで(もしくはニアリアルタイム)で大きく表示させる方法を教えてください。
コメント3件

441
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 22:56:04
>440
無理だとおもう

442
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 23:02:00
>440
茨の道になる上に得るものが少ない。やめた方がいいだろう

一応2013から取得できるみたいだが・・・
https://msdn.microsoft.com/ja-jp/library/office/ff835916.aspx

またvbaで非同期処理だとユーザーフォームになると思うけど、どうやるかわからん

おとなしく右下を見ていたほうがいいと思う
コメント1件

443
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 23:03:51
>440
画面上の好きな場所を拡大表示できるアプリがある
ほぼほぼタイムラグなし

444
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 23:05:29
アプリがあるっていうかそれwindows標準ツールの拡大鏡やん

445
440[]   投稿日:2017/02/01 23:25:15
Excel単体では無理か…
老眼の経理のおばちゃんゴメン!
コメント1件

446
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/01 23:35:19
>445
ディスプレイのプロパティで解像度を下げるとかフォントサイズを上げるとか

モニターの前に虫眼鏡を置いとくのが一番わかりやすいだろうな
アナログばんざい

447
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/02 08:24:45
>438
自分の上司が了承しなきゃ人事に話せないでしょ

人事に自分の無能晒す上司はいないんじゃ?
自らリストラ候補入り望まんだろ
コメント1件

448
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/02 08:27:05
解像度を下げるのがいいだろうね
フォントを下げるとあらゆるソフトに影響してぐちゃぐちゃになる
表示箇所の高さが固定されてるのにフォントだけ大きくなったりすると最悪

>447
2chに毒されすぎだぞ、大丈夫か?
普通の会社はそんな程度で無脳のレッテル貼ったりしないよ

449
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/02 08:27:29
漢字間違えた

450
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/02 08:36:21
退職者に人事から連絡なんて余程の事だろ

前任者から「何でも聞いて」と連絡先もらってれば気軽にきけるだろうけど

451
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/02 09:50:39
>442
別にそんなおおごととして考えなくてもいいんでね?

その退職者が揉めて辞めたかどうか、VBAで組んだモノの規模にもよるが、
パスワード1つで最初から作り直しって、
能力あるヤツでも時間がかかれば、その人件費だけでも会社としては損失。

自分の立場が危うくなるとかなんとか言っているヤツがいるが、
揉めて辞めたのでもない限り、
パスワード1つ前任者から聞けないのは、人間力としてどうかしている。

著作人格権が退職者に帰属したとしても、
業務として作成されたプログラムなら、会社に帰属。
(ソフトウエア会社でもなければ、ちゃんとした手続きは当然取ってないだろうが・・・)

最初から作り直す前に、ダメ元で連絡が取れないか試して、
上手く聞けたらラッキーだろ。

ただし、強制的・高圧的なブラックな態度を取ったら法的にアウト。
人事経由で連絡・打診して貰うのも、慎重を要するから。
出向いて貰うなら日当を払うとか、昼飯おごるくらいの用意をしておくのは当然。

質問者本人がその退職者と在職中に良好な関係だったなら、なんてことない話。
コメント1件

452
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/02 12:46:37
まあ、大概のこういう前任者が辞めてとかのエクスキューズしながら相談 ってのは
どっかの細々零細がどこぞで拾ったアプリを解析して己の稼ぎに転嫁したいがため ってケースが殆んど

453
435[sage]   投稿日:2017/02/02 12:50:14
>436
私がなにか勘違いしてたら申し訳ないんですが、Ctrl+Pagedownって
開いているシートをシート1からシート2にするショートカットで、
シート1をシート2の後ろに移動させるショートカットではないと思うんですが…
コメント2件

454
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/02 13:39:01
>435 & >453
ショートカットキーはないんじゃね?
素直に シートタブの横の (+) をクリックしる

455
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/02 14:19:05
>453
Ctrl+PagedownしてShift+F11の2アクションって意味じゃね
現在のシートの右側に追加
コメント2件

456
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/02 16:55:27
>455
頭良いな!

457
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/02 19:08:26
>451
下らん長文書く前にアンカーぐらいまともにつけろよ、クズ

458
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/02 19:29:31

459
435[sage]   投稿日:2017/02/03 09:50:54
>455
ごめんなさい、やり方がおかしいのかできませんでした…
横の+押すことにします。

460
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/03 13:57:25
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

20170203というようなyyyymmdd形式の数字がA列に並んでいます。
どうすればいいでしょうか?
コメント2件

461
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/03 13:58:24
甘んじて受け入れてください。

462
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/03 14:03:45
何がしたいの……

463
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/03 14:12:03
>460
VBA使わないと無理

464
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/03 14:15:23

465
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/03 16:32:46
なる

466
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/03 17:56:02
>464
ほえー、こんな機能があったんだ...
奥が深すぎるぜ

467
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/03 19:23:50
>464
これはスマートだ
midで区切る事を考えていた

468
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/03 19:36:20
>464
データ区切り位置変更ウィザードを開いて、データは区切らずにウィザード内で書式変更してるだけなんだな
通常の書式変更と、このウィザードの書式変更では何が違うんだろ・・・
コメント1件

469
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/03 19:39:02
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

【例】
名前  点数  ランク
古井   95    1
菅谷   80    3
中村   95    1
岡本   60    5
岩井   70    4
長戸   60    5

という表があります。名前と点数はテキスト入力で、ランクは点数をもとにrank関数で出してあります。
これを

ランク  名前  点数
  1   古井   95
  1   中村   95
  3   菅谷   80
  4   岩井   70
  5   岡本   60
  5   長戸   60

とランク順に表示するにはどうすれば良いですか?
手動での並べ替え操作ではなく関数で自動的に表示できるようにしたいです。
コメント2件

470
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/03 19:50:45
>469
作った
D列 同ランクに差をつけるため、countifを使う
E列 これが真のランク
G列 あとは真のランクをsmall()で並び替えて
H-J列 index+matchで値を引っ張ってくる
http://www.dotup.org/uploda/www.dotup.org1144163.xlsx.html

471
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/03 21:00:19
>468
セルの書式を変えただけだと全然違う日付に変わる
区切り位置で日付を修正した場合、見た目だけじゃなくてデータも変化して矛盾しないよう補正してくれる

472
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/03 23:58:29
何もしていない普通の一般人の自宅に隠しカメラを取り付け
それをネットでリアルタイム配信

仲間という人間に対する盗聴盗撮生ネット配信の会

しかけたカメラの映像
乗っ取っているPCの画像をリアルタイムで生配信中
集団で仲間の私生活を覗いて楽しんでいる

そんなことが今この国では行われています

473
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/04 08:05:00
>469
関数じゃないけど

別シートに、ランク、名前、点数の並びでリンクさせておき
必要な時にオートフィルターで並び替え

474
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/04 13:07:54
Excel2016を使ってるのですがオプション>改ページプレビューを表示するに設定してもExcelを起動する度に設定しなくてはなりません
Excelを起動し直して新しく文書を作る場合でも最初からこのチェックができるような方法はありませんか?
コメント3件

475
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/04 13:34:07
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
すみません。質問お願いします。
シート分けしているファイルがあります。

SHEET1-----シートの名前をDATAとします。
SHEET2以降-シートの名前は1からの連番31まで(日付)

SHEET1(DATA)の内容が以下
     A     B     C
1   はれ   10度   
2   あめ    12度
3   くもり   10度
4  
|
|
31
SHEET1の内容を日付ごとのSHEETに表示させたいです。
具体的には以下のとおりです。

SHEET2(日付で「1」) の 特定のセルに DATAの A1 つぎのセルに B1 (はれ)
SHEET3(日付で「2」) の 特定のセルに DATAの A2 つぎのセルに B2 (あめ)
SHEET4(日付で「3」) の 特定のセルに DATAの A3 つぎのセルに B3 (くもり)

といった形でシートナンバーと関数の番地をずらしていくことはできますでしょうか?
よろしくお願いします。
コメント2件

476
475[sage]   投稿日:2017/02/04 13:44:18
すみません >475です。
具体例の表記がおかしかったので修正します。

SHEET2(シート名日付で「1」) の 特定のセルに DATAの A1(はれ) つぎのセルに B1 (10度)
SHEET3(シート名日付で「2」) の 特定のセルに DATAの A2 (あめ)つぎのセルに B2 (12度) 
SHEET4(シート名日付で「3」) の 特定のセルに DATAの A3(くもり) つぎのセルに B3 (10度)

以上な感じです。関数の番地がシートネームと連動するようになるとうれしいです。
よろしくお願いいたします。

477
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/04 14:12:12
リンク貼り付けじゃダメなの?

478
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/04 16:38:43
>475
こんなのどうでしょうか?
以下の条件で
・DATAシートを参照する シート名は "数値"である事(全角の 30とかでも良いみたい)
・ブックは未保存ではない事(ファイル名が付けられてる事)

数式タブ→名前の管理で下記の名前を定義します。
 名前 SheetName
 範囲 ブック
 参照範囲 =MID(CELL("filename",INDIRECT("A1")),FIND("]",CELL("filename",INDIRECT("A1")))+1,31)


使い方は
日付シートで
=OFFSET(DATA!A1,SheetName-1,0)
コメント1件

479
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/04 16:51:27
>474これだけど自分でやり方見つけたけどテンプレートにすればできるんだよね?
これ以外に普通に出来ませんか?
コメント1件

480
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/04 19:37:12
>479
そのテンプレートの設定が普通だよ
コメント2件

481
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/04 19:39:11
>480
ありがとうございます

482
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/04 20:50:17
>480
実際にテンプレートで保存したけど反映されてません…どうしたものでしょう?
コメント2件

483
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/05 10:37:56
>482
テンプレートにしても無理とかExcel糞過ぎ
毎回手動で設定しないといけないのかよ?
コメント1件

484
475[sage]   投稿日:2017/02/05 11:41:46
>478

ありがとうございます!!
ばっちり解決できました。

ご丁寧にありがとうございます!

485
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/05 13:10:09
>482
バージョンによって出来ないのかもね
マイクロソフトに聞いてみるか、新規用ファイル作ってテンプレートみたいに使えば?
https://support.microsoft.com/ja-jp/contactus/

>483
別に君は使わんでもいいぞ
俺は困らないし誰も困らない
コメント2件

486
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/05 14:02:29
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

計算方法の設定は手動に設定されているのですが、他のcsvファイルを開くとなぜか再計算されてしまいます。
元ファイルと開くファイルの両方とも手動になっています。何がいけないのでしょうか?
保存して開き直しても同じです。

487
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/05 14:22:18

488
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/05 14:47:58
>485
新規ファイルで保存しても開き直すと改ページの点線が消えます…なんで?
コメント2件

489
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/05 15:07:44
>488
2010だと消えないけど

カンで答えると、印刷範囲を広げた後に開き直すと印刷範囲が再設定されている
最後のセルにピリオドなり空白なりでデータいれるとその状態が保持されると思う
コメント2件

490
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/05 15:11:01
>489
2016でオプションいじる以外何もしてません

491
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/05 15:11:36
>489
空白を入れるんですか?

492
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/05 15:45:13
そういえばエクセルのテンプレートを、遊書体からゴシックに変えようとしたときに
Excelのメニューからの新規作成はテンプレートを書き換えれば良くて
エクスプローラの右クリック新規作成は、shellnewフォルダのファイルを書き換えないといけなかった。

493
486[]   投稿日:2017/02/06 13:26:43
>487
全てのパターンにあてはまりません

ダレカタスケテ(T_T)
コメント1件

494
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/06 14:04:33
>493
仕様らしい
https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_other...

再計算しtくなければxlsxにするか、vbaでfsoなどを使うしかなさそう

495
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/06 19:46:54
windows7&excel2010と
windows10&excel2016で
同じマクロ(20*20セルを何度も色を塗り替えるようなテスト)を走らせて2016の方が30%遅い

なんてことある?
コメント2件

496
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/06 20:01:28
>495
個人的にはその遅さはそこまで変ではないと思う。
計算速度を上げてグラフィックが少し遅くなったという可能性は考えられるアップデートだろう
もしかするとアニメーションが邪魔してるのかもしれない

計算速度が30%遅くなってるなら問題だと思うけど、
普通、マクロ動かす時は描画切るので本当にどうでもいい事だと思う
コメント1件

497
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/06 20:48:45
>495
インタプリタなりにコンパイル・オブジェクト化するから
その後は、os版よりはクロック周波数w(ハード)に依るような
コメント1件

498
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/06 21:13:02
アニメーション切れ
コメント1件

499
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 00:14:33
>496
ランダム関数を何百個か再計算するようなのは早くなってるんだけどね

>497
書かなくてすまんがCPUはだいぶ良くなってるんだが…せろりんからi5

>498
はーアニメーションか
ちょっとやってみる!
コメント1件

500
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/07 00:59:02
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

A列に名前がズラーっと並んでいて、重複しない固有の名前の横に1、2、3…とB列で番号を効率よく振りたいです。
1行目には項目の見出しでデータが2行目からあるとして
=if(countif(A$2:A2,A2)=1,max(B$1:B1)+1,"")をフィルハンドルで下げると再計算に時間が掛かってしまいます。
=if(countif(A$2:A2,A2)=1,row(),"")にして集計側でsmall関数で小さい順に並べてもまだ時間が掛かってしまいます。
データが数千行もあるためできるだけ計算時間を短くしたいです。どうすれば良いでしょうか?
コメント2件

501
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 01:09:52
>500
max、rowなどは揮発性関数と言って重くなりやすい原因の一つ
ただ今回は数式変えて軽くするのは難しい、というか多分ムリ

解決方法としてテーブルを外に出す。別シートに名簿を作る
そこからindex+match、もしくはvlookupで数値を引っ張ってくる
そうすれば計算量はかなり下がるので軽くなる

増えた名前に対応するには手動しかないけど、我慢してくれ
それかvbaを使えば色々一気に解決すると思う
コメント1件

502
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 01:17:44
これで解決するかよくわからんけどMAXをCOUNTに置き換えてみた
=IF(COUNTIF($A$1:$A2,$A2)=1,COUNT(B$1:B1)+1,"")

503
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 01:28:27
揮発性関数はこの8つだけ
CELL、INDIRECT、INFO、NOW、OFFSET、RAND、RANDBETWEEN、TODAY

つまりMAXもROWも揮発性じゃない

504
500[]   投稿日:2017/02/07 08:46:42
>501
その名簿を作るためにリスト化させたいんです。
要はフィルター設定時に表示されるリストを自動化したいんです。
row()でダメなら補助列をつくって数字をいれるしかなさそうですね
コメント1件

505
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 09:48:53
あれ、row()って揮発性関数じゃなかったか?
と思ったら・・・
https://msdn.microsoft.com/ja-jp/library/office/ff700515(v=office.14).aspx
以前は揮発性関数として記載されていたが、実は、揮発性関数でないものに、INDEX()、ROWS()、COLUMNS()、および AREAS() があります。

なるほどなぁ

506
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 09:52:35
>504
別のシートにコピーして重複の削除じゃダメなん? ←名簿作成
コメント1件

507
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 10:17:38
>500
vbaはダメ?こういうのはvbaが向いてると思うけどなぁ

Sub a()
'最終行
gyo = Cells(Rows.Count, 1).End(xlUp).Row
'通し番号
num = 1
'A列を基準に処理
For i = 1 To gyo

'フラグ用。重複が見つかったらfalse
flg = True

'A列の一個上まで重複探す
For k = 1 To i - 1
If Cells(i, 1).Value = Cells(k, 1).Value Then
flg = False
Exit For
End If
Next

'見つからなかったらsheet2のAB列に結果を書き出す
If flg Then
Sheets("sheet2").Cells(num, 1) = Cells(i, 1).Value
Sheets("sheet2").Cells(num, 2) = num
num = num + 1
End If

Next
End Sub
コメント1件

508
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 10:28:06
>499だが
アニメーション切ってもほとんど時間に変わりなかった…
ただマクロ実行中画面描写をやめるコードをいれたところCPUの速度アップを体感できる結果となりました、と

ちなみにグラフィックアクセラレータを有効にして画面描写しながら走らせるとだいぶ遅くなったから…まぁそういうもんなんだな

一応報告。ありがとー

509
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 12:56:30
そりゃいちいち描写してたら遅くなるわな w

510
500[]   投稿日:2017/02/07 13:16:14
>506
それが関数で自動化できればねぇ…
手動でいいならピボットで名寄せしてる
コメント1件

511
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 14:01:35
>510
そのリストの更新が、1日に数回なら、たった数千件なら数秒で終わるんだから待てばいい
データがガンガン入れ替わって何百回も作り直す必要があるんならVBA
それが使えない環境ならあきらめろ

512
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 17:26:35
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010〜2016
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

項目A 子項目なし
項目B 子項目B−1、B−2、B−3…
項目C 子項目C−1、C−2、C−3…





それぞれの親項目に紐づく子項目があったりなかったりします

子項目がないものは直接値を打込んで、
子項目があるものには、その子項目に数字を打ち込んで、合計値を親項目に表示するという形にしたいです

打込んだ値は、人が切り替わった時、その人が打込んでたデータを読み込むようにしたいです

VBAを使って、子項目があるセルにダブルクリックしたらフォームが立ちあがって
子項目を打ち込めるウインドが出るようにしたのですが、日々それを打ち込んでいったらすぐ重くなってしまいます

軽くする方法を考えているのですがいい案が思いつきません

何か良い方法はございますか
コメント2件

513
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 17:39:07
>512
現在のコードを示さんと改善点もなにも分らんよ

取りあえずここを参考にしてみれば?
VBA高速化テクニック
http://officetanaka.net/excel/vba/speed/

514
500[]   投稿日:2017/02/07 18:09:23
>507
拡張子がxlsxから変えられないし、うちの事務所ルールでvbaは禁止されているから無理
コメント1件

515
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 18:19:17
VBAなしで自動化をしようとすると
どうしても関数の計算処理が多くなって処理時間は犠牲になる
あきらめろん

516
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 19:13:22
>514
vbnetなどでexeにするとか、自分でサーバー立ててweb経由でphpやjsで処理するとか
数秒待つのが一番早いと思うけどな

517
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 19:19:46
VBScriptやJscript といったスクリプト系やPowerShellという手もあるけど
VBA禁止ならそれらも禁止されてる可能性もあるな

518
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 19:33:59
>512
実際のファイルを見たい
「子項目なし」は空白なのか、「子項目B−1、B−2、B−3…」が実際どう入力されているかわからない

>親項目
が何かわからない。A列のこと?

>人が切り替わった時
人 が何のことか分からない。別の人が開き直すの意味?

>重くなる
ウィンドウのとじ方に問題がある
多分hideで非表示にしてると思うけど、これをやると見えなくなるだけでメモリ上に残り続ける
メモリ上に残らないようにするにはunloadを使う


というかこういうのはどう?1から考えた
B列には
1,2,3
3,4
と入れ、マクロを走らせるとA列に合計が出る
多分入力も出力もかなり早いと思う

Sub a()
'最終行
gyo = Cells(Rows.Count, 2).End(xlUp).Row

'1行目から処理
For i = 1 To gyo
If Cells(i, 1) = "" Then
tmparray = Split(Cells(i, 2).Value, ",")

'足す。
total_x = 0
For Each n In tmparray
'文字列エラー回避
On Error Resume Next
total_x = total_x + n
On Error GoTo 0
Next

Cells(i, 1).Value = total_x
End If
Next

End Sub

519
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 20:17:01
>488
これなんで2016だとできへんの?
バグ?俺もできない…
コメント1件

520
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 20:18:56

521
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 20:19:52
>520
いや新規にテンプレート作ってもできへんのよ?
バージョンのせいなの?
コメント2件

522
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 21:46:18
>521
しらねーよw
そんな変な問題はここで聞くよりサポートに聞いたほうが確実で早いから誘導してやってんだよwwww

523
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/07 22:56:32
>521
チェックがついてないのか?
コメント1件

524
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/08 08:51:37
>523
チェックつけてテンプレート作ってもテンプレート開くと消えるねん

525
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/08 09:08:32
Excel2016(64bit)で試してみたけど、ちゃんと保存されるぞ
念のため、テンプレートをダブルクリックで開くのと、先にExcelを起動して改ページプレビューが解除された状態からテンプレートを開くの2パターン試した

526
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/08 12:16:16
できないという人は、ページ設定で「ページ数に併せて印刷」にチェック入ってない?
コメント1件

527
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/08 18:24:44
>526
チェック入ってません
今試したら新規で白紙でブック作っても何故かページ設定の詳細開くだけで改ページの点線が出てくる謎仕様です
ボスケテ!
コメント2件

528
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/08 21:10:51
「表示」で「標準」を「改ページプレビュー」に切り替えたものが保存されない

と、思い込んで回答してるようだが、

>527は印刷範囲の点線のことを言ってるようだぞ・・
コメント1件

529
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/08 21:17:21
>527
スクリーンショットを上げて、どうなるからどうしたいのかを言ったほうがいいと思う
何か機能の名前を間違えてる気がする。このままだと永久に解決しないんじゃないか


530
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/08 22:20:20
>528
おおもとは>474
点線でなくてチェック
ページ設定とか標準のプリンタの情報をエクセルが取得すると
点線が表示されるのだろう
コメント1件

531
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/08 22:51:46
>474
マクロの記録でやれば?

532
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/08 22:55:00
>530
それって
ファイル→オプション→詳細設定→改ページ線を入れる

みたいののチェック外すだけじゃない?
詳細設定かオプションかなんかして、2,3ページ分スクロールする感じ
ちなみに超適当にうろ覚えで書いてるからところどころ文言違うかもだけど

533
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/09 20:51:27
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016
セルの背景色を変更しても画面上で反映されず(操作は可能)、
ウインドウを一旦最小化して再び戻すとようやく反映される症状が出てます。
既存のブック及び新しいブックでも症状が出ます。
試したのは、
・セーフモード
・ハードウェアアクセラレーションを切る
ですが解決せず。他人のPCなのでまだ十分に他の手段を試せてません…
Excelの修復は次の機会に試してみますが、購入されて間もないPCなのでそんなすぐ構成が壊れるかなあとも…
同様の症状を経験された方おられますか?助言いただけると助かります

534
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/09 22:29:00

535
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/10 01:11:57
セルが飛び飛びのコピー元から同じ相対位置でペーストする方法ってありますか?
大量に飛び地のコピーがあって困ってます
コメント1件

536
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/10 01:30:43
マクロの記録をして実行するだけさ
コメント1件

537
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/10 02:03:04
>536
むずかしくてわかりません
コメント1件

538
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/10 03:25:54
>537
じゃあ1個ずつコピペしてください 👀
Rock54: Caution(BBR-MD5:68f2ed3dc652fce4c9169aaf2a727f10)

コメント1件

539
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/10 09:23:40
>535
複数セルにコントロールキーを押しながら同時入力する方法は知ってるよね。

コピー元を指定する数式を、コピー先のセルに同時入力する。

VBA無しならこれぐらいしか思いつかない・・
コメント2件

540
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/10 10:15:47
>538
この役立たずめ!

541
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/10 10:41:43
>539
これ相対参照になるのか、面白いな
$付けると絶対参照になるのね
なにかに使えそう

542
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/10 18:58:42
>539
コピー先が大量にあるからつらそう

543
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 00:50:50
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可:やりたいこのができればなんでも良いです。

A列
1 aa4/0
2 g8/1
3 b6/1
4 v7/1
というような文字列が同じ列(A列)に入力されてまして、
一番はじめの数字の合計値をA5に表示させたいです。
(上記例の場合、4,8,6,7の合計の25)
最初の数字はすべて一桁、前の文字は1〜4文字です。
可能であれば、それぞれの値を別セルに表示させて合計するのではなく、
A5のみで完結する式でできればと思っています。

よろしくお願いいたします。
コメント1件

544
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 01:10:16
>543
合計したい数字が1桁でその直後に / が必ずあるなら

=SUMPRODUCT(MID(A1:A4,FIND("/",A1:A4)-1,1)*1)
コメント2件

545
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 08:09:15
>544
ありがとうございます。
直後に/は必ずあります。
出社したら試してみます!
コメント1件

546
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 13:59:52
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

100文字以下の半角の文字列がありその中に数値があります。
その数値の一番大きいものを抜き出すにはどうするといいでしょうか?

例:
a1-b12c7d5000e200
→5000
コメント2件

547
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 14:28:39
>546
ムリです

548
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 14:31:14
やっぱり無理ですか…

549
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 15:01:23
100字以下だから作業セルを使いまくれば出来るだろうけど面倒

まず1番目から100番目までの文字を1文字ずつ数字かどうか判定

数字が連続してる部分は連結

連結した数字の最大を表示
コメント1件

550
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 15:36:58
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

セルの書式設定のみで下線、取り消し線を文字と別の色にしたくても出来ない

これだってVBA以前に誰でも普通に思いつき必要とされるはずなのに、未だに実装されない糞仕様
何故いちいち図形として線を挿入しなければならないのか
コメント1件

551
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 15:45:14
>550
>2  ・6

552
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 16:29:34
543です。

A列
1 aa4/0
2 g8/1
3 b6/1
4 ON
5 v7/1
6 OFF
7 ab8/1

というような場合、>544で教えて頂いたものが使えません。
上記例の場合でも1桁目の/の前にある数字のみをカウントしたい場合の数式を教えて頂けないでしょうか。
コメント2件

553
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 16:50:52
>552
それだと少し手直しすればいけそうだけど

こゆう文字列ある?

左から見ていって最初に /が出たその左隣が数値ではない
※例
/a5/1
a/zz5/1
a/z
コメント2件

554
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 17:26:35

555
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 17:43:17
>552
VBAで作ったよ
/とか関係なく最初に出て来た1文字の数字を足していってるだけw
=SUMX(A1:A7)

Function SUMX(CELS)
 Dim CEL, SUM, I
 SUM = 0
 For Each CEL In CELS
  For I = 1 To Len(CEL.Value)
   If IsNumeric(Mid(CEL.Value, I, 1)) Then
    SUM = SUM + Mid(CEL.Value, I, 1) * 1
    Exit For
   End If
  Next
 Next
 SUMX = SUM
End Function

556
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 18:45:00
>549
>554

ありがとうございます。
助かりました。

557
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 21:07:20
>553
そういった入力内容のところはえりません。
ON,OFF,a〜z or aa〜ac◯/1 or 0のみです。
丸には合計したい数字が1〜9で入ります。
コメント1件

558
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/11 21:15:40
>557
>553のパータンがないなら
=SUMPRODUCT(MID(A1:A7&"0/",FIND("/",A1:A7&"0/")-1,1)*1)

空白セル / の無いセルは 0として合計します。

これでダメならもうVBAだな
コメント2件

559
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 00:09:56
>558
ありがとうございます。
月曜日に使わせていただきます!

560
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 07:40:04
月曜日にしか使わないのかよ・・・

561
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 08:06:06
危なく、>545とレスするところだったw
おふざけだったのね・・

562
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 10:46:58
会社に行かないと試せないでしょ

563
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 12:45:09
【1 OSの種類         .】 Windows8
【2 Excelのバージョン   】 Excel2010

質問です
自宅のPCにExcelがないので欲しいのですが
無料でかつ長期にわたって使えるものはもうDLできないのでしょうか?
OpenOfficeはありますが挙動が違うのでちょっと使いたくない感じです
作成したものはExcel2010なので多少古いタイプのExcelでも構いません

もしネットから落とせない場合、他人から譲渡してもらう事は可能でしょうか?
実家のPCであればExcelが入ってると思うので移せるという確証があればそちらから貰う事も検討できます
コメント3件

564
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 12:48:24
>563
Excelは無料になったことはありません。ずっと昔から、最初から有料のソフトです
期間限定の体験版はありますが、それ以外で無料で使ったことがあるのなら、それは違法コピー品です

実家のExcelがパソコンの付属品なら移せません
パソコンとは別に箱入りのExcelやOfficeを買った物なら移せます

565
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 12:55:21
>563
譲渡してくれる他人なんてどうやって探すんだよ笑
使いたいなら買えよ
コメント1件

566
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 13:56:52
>563
なにがやりたいのかよくわからんが・・・
スプレッドシートでいいんじゃね

567
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 14:14:12
回答ありがとうございます

実家のはおそらく付属品でしょうね
時間や金銭の計算がしたいのと文章作成が目的ですから複雑なものは必要ありません
スプレッドシートというのがまさにそれらしいですが
OpenOfficeとExcelでやりとりするとちょっと表記がバラつくんですよね・・・
最終的に印刷することもあるので字体や行数が変わるのはちょっと考えモノです
Excelでなくても同じ感覚で使えるソフトがもしあれば教えてください

>565
まず文章を読む習慣をつけようね ^^;
コメント2件

568
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 14:24:11

569
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 14:44:39
>567
× 付属品
○ OEM

大したことしないなら、2003を中古で買ってみては?
2000円ぐらいで買えるよ

570
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/12 14:58:47
久しぶりにExcel2016をアップデートしたんだが、リストが狭くなって文字が全部表示されん。
なぜだ

571
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 15:01:17
なんか前にも安くとか無料でとか言ってたのいたなw

572
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 16:42:57
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

フォームコントロールのチェックボックスをクリックした際
レ点ではなく塗りつぶしにしたいです
お知恵をお貸しください
コメント2件

573
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 17:11:39
>572
ボタンにして表面に塗りつぶした状態の図形を貼る
コメント1件

574
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 17:44:42
>572
Sub ボタン1_Click()
ActiveSheet.Shapes.Range(Array("Button 1")).Select
If Selection.Characters.Text = "■" Then
Selection.Characters.Text = "□"
Else
Selection.Characters.Text = "■"
End If
End Sub

>573と同意見。こんなコードでいいんじゃね

575
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 17:45:36
ボタン(Button 1)のテキスト取得ってどうやるの?
以下でできなかった。なんかモヤッとする

Sub ボタン1_Click()
Set s = ActiveSheet.Shapes.Range(Array("Button 1"))
MsgBox (s.Item(0).Characters.Text)
End Sub
コメント1件

576
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 18:24:17
>575
ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text
とか
ActiveSheet.Shapes.Range("Button 1").TextFrame.Characters.Text
とかね
コメント1件

577
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 18:34:50
>576
ありがとー!

578
572[sage]   投稿日:2017/02/12 20:59:23
572です、お知恵をお貸しいただいた皆様ありがとうございました
無事に出来たのですがもう一点だけお聞きしたいことがあります
フォームコントロールからボタンを作ったのですが、このボタンのグレーの背景色は変更できないのでしょうか
コメント1件

579
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 21:12:52
>578
右クリックの設定で変えられるよ

580
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 21:13:38
書式設定ね

581
572[sage]   投稿日:2017/02/12 22:40:17
572です ご指摘いただいたように右クリック→コントロールの書式設定を見ているのですが
背景色に該当するものが見つけられません

フォームコントロールではなく、activeXコントロールだと背景色の変更が可能だったのですが
フォームコントロールはactiveXコントロールのような背景色設定が出来ないのでしょうか

長々とお聞きして申し訳ありません、よろしければご回答よろしくおねがいします
コメント2件

582
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 22:53:46
>581
ごめん、チェックボックスにあったからbuttonにもあると思ってたわ。無いみたい
オートシェイプにすればできる

583
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 22:54:32
>581
フォームコントールは色が変更できない
それ以外の点でも機能が低すぎるので、ActiveXコントロールを使った方がいい
コメント1件

584
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 22:56:52
>583
ActiveXコントロールはアカン
MSはActiveXコントロールを捨てるつもりなので、いつマクロが動かなくなるかわからない、というか前に使えなくなるアップデートがあった

585
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/12 23:21:12
欲しいサイズのチェックボックスの画像をキャプしといて、それとそれを塗り潰した二つの画像にして
Image のクリック時に Visible True/False でなら切り抜けられるけど
   そこまでして必要な見た目重視案件なのか? て疑問は挟まないようにしよう

586
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/13 19:01:02
エクセルで簡易データベース作るのって難しい?
入力フォーム作ってデータ溜めるまで作ったのはいいけど、
データを複数条件で検索したり、レコードを修正したりする方法が上手く思い付きません

どうにか、簡単なマクロで実現できないでしょーか
コメント5件

587
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/13 19:22:44
>586
どこまで出来るかしらんけどSQLとか

588
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/13 20:17:44
>586
マクロ記録しまくれ!

589
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/13 20:20:49
>586
普通にDB使えよ
なぜあえて効率の悪いことをするんだ?
だから日本人は生産性が低いんだよ

590
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/13 20:27:25
DBソフトは導入の敷居高いからなぁ
自分以外誰も使えないってのはかなりめんどくさかったりする

591
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/13 23:07:54
>558
543です。
見事にできました!
これを機に自分でできるように勉強します。
ありがとうございましたm(._.)m

592
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/13 23:10:50
572です、activeXで無事に作ることが出来ました
お教え頂いた皆さまありがとうございました

593
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/13 23:14:44
activeXで作っちゃったか
一応読んでおいた方がいい
https://support.office.com/ja-jp/article/Office-%E3%83%95%E3%82%A1%E3%82...

594
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/14 11:47:44
色着けるだけの為にPC止めるクソブックばら撒くなよ

595
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/14 11:50:05
先行投資と思って素直に買おうよ。

596
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/14 16:11:12
>586
ADODBでググるよろし

597
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/14 16:39:52
データの検索だの修正なんてデータ蓄積したシートで検索すりゃ済む話じゃないの。フィルターでもいいし。
わざわざVBAで同じ機能作りたいわけ?
コメント1件

598
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/14 19:56:46
ヤフオクでOffice Professional 2013 が
即決7000円で売っとるぞ。

599
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/14 20:04:47
見てみたら海賊版が山ほど出回っててドン引き

600
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/14 20:36:39
ActiveXは廃止に向かっているからなるべく使わない方が良いということは分かった

>597
わざわざ書くまでもないことだが、本格的に業務でDB使うのならExcelは不向き
コメント1件

601
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/14 21:16:42
>600
1万行2万行くらいのデータで悲鳴をあげるしなwwww

602
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/15 22:14:38
>586
AccessにExelデータインポート出来るから、そっちでやった方がいい。

603
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/16 00:46:27
Excelのセルを六角形のグリッドにすることはできますか?
コメント3件

604
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/16 08:59:29
無理です

605
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/16 11:32:46
アクセスのレポートデザインの様に
mm単位で自由に帳票デザインできるのって他にねーかな?

606
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/16 16:34:17
>603
大戦略でも作るのかな
コメント1件

607
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/16 17:07:08
>603
ひとつ飛ばし、互い違いに市松模様のように入力すれば仮想的に六角形になる?

608
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/16 19:25:03
>603
シェイプを敷き詰める

609
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/16 19:46:06
六角形をベースに色々やるつもりなので窓作ったりではダメっすね・・・

>606
エスパーやめろw
コメント1件

610
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/16 19:49:19
六角形を敷き詰めるなんてそれぐらいしかないですし・・・
ゲーム作るならunity辺りの方が良いよ

611
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/16 20:19:08
>609
えー 違うの? つくって損した

Sub Daisenryaku()
'
Application.ScreenUpdating = False
Range("1:100").RowHeight = 20
Range("a:xx").ColumnWidth = 2

For rr = 1 To 40 Step 2
For cc = 1 To 80 Step 4

With Cells(rr, cc)
.Cells(1, 1).Borders(xlDiagonalUp).LineStyle = xlContinuous
.Cells(1, 2).Borders(xlEdgeTop).LineStyle = xlContinuous
.Cells(1, 3).Borders(xlDiagonalDown).LineStyle = xlContinuous
.Range("B1:B2").MergeCells = True
.Range("B1:B2").HorizontalAlignment = xlCenter
.Range("B1:B2").VerticalAlignment = xlCenter

.Cells(2, 1).Borders(xlDiagonalDown).LineStyle = xlContinuous
.Cells(2, 3).Borders(xlDiagonalUp).LineStyle = xlContinuous
.Cells(2, 4).Borders(xlEdgeTop).LineStyle = xlContinuous
.Range("D2:D3").MergeCells = True
.Range("D2:D3").HorizontalAlignment = xlCenter
.Range("D2:D3").VerticalAlignment = xlCenter
End With

Next
Next
ActiveWindow.DisplayGridlines = False
End Sub

612
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/16 22:33:34
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

貰った名簿にunicode限定文字が含まれていたりするのをチェックしたいのですが
どうやって検出すればいいのでしょうか
場所がわかればshift-JISでも見れる簡単な漢字や□に手作業で変換するつもりです
コメント1件

613
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/16 22:40:19
VBEに貼り付けてみる?

614
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/16 22:55:35
>612
こんな感じかな?

Sub TEST()
Dim OrgStr As String
Dim CnvStr As String

OrgStr = Range("A1").Value
CnvStr = StrConv(StrConv(OrgStr, vbFromUnicode), vbUnicode)

If OrgStr <> CnvStr Then
 Debug.Print InStr(CnvStr, "?") & "目にUNICODE文字があります"
 Else
 Debug.Print "UNICODE文字はありません"
End If

End Sub
コメント1件

615
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/16 23:23:23
>614
とてもスマートな記述でご回答いただきありがとうございます
改良してありがたく使わせていただきます

616
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/17 00:58:22
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

VBAの質問なのですが
 msgbox date()
◆a=inputbox(date(),(date(),date())
 a=application.InputBox(date(),(date(),date())

のdefaultだけ17/2/2017とひっくり返って表示されてしまいますが
なにか私のコンピュータの設定がおかしいのでしょうか。それとも不可避な仕様なのでしょうか
コメント1件

617
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/17 08:18:43
>616
仕様みたいだね
format(date(),"yyyy/mm/dd")とか自前でymd表記にする必要がありそう
コメント1件

618
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/17 08:47:16
一時的にロケール指定する機能とかなかったっけ
ないならどうしようもないか
コメント1件

619
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/17 12:23:55
>618
いやいや >617 の言う通りフォーマット指定すればいいだけでしょ

620
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/17 13:35:16
カスタムフォーマットを渡す必要なければ
CStr(Date)
でもいいぜ
ちなみに Promptは As Stringになってるからそのままでもok

621
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/17 15:27:28
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

A列に名前、B列に個数があります。
たとえば、

A1:あ B1:3
A2:い B2:2

とあるものを、

A1:あ
A2:あ
A3:あ
A4:い
A5:い
と展開したいのですが、どのようにすればよいでしょうか。
列はほかの場所でもなんでもよいです
コメント1件

622
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/17 17:29:43
>621
元データも 結果も 質問例の通り 1行目から という条件付きで
(この条件以外と いわれても結構ムズイので知らんよ)

D1 =1
D2 =IF(INT(SUM(OFFSET($B$1,0,0,D1))/ROW())<>0,D1,D1+1)
下にオートフィル
E1 =INDEX(A:A,D1)
下にオートフィル

で E列に目的のものが出来る
コメント1件

623
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/17 19:11:12
>622
出来た!
ありがとうございます

ただ、自分にはパッと見ても意味が分からないので、ゆっくり解読してみる^^;

624
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/17 23:08:39
よく間違えやすいが、ダイヤモンドゲームの1マスは四角形でも六角形でもなく三角形

625
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 08:53:27
ネットで調べたけど、行き詰まったので教えてください

【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 はい(ネットで調べて丸コピペくらいなら)
【4 VBAでの回答の可否】 可

やりたいこと:商品コードを検索値として、相対的な場所にあるセルの値を返したいです。

111256
2016年 12 34 56 78 90 …
2017年 34 56 78 90 12 …

111256が商品コード、年の横にある数字は各月の売上数字(6月以降は省略)
実際はこの下にもずらっと同じような表が並び、不定期に商品コードが増えたり減ったりします
例えば、2017年の3月の売上数字78を別セルに返したい時はどうすればいいでしょうか?
やりたいこととしては、vlookupで行も指定できるような感じです
調べるとindexとmatchで出来そうだと思ったのですが、そのものズバリの例が出てこないのでわからなくなってしまいました
よろしくお願い致します
コメント3件

626
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 10:26:16
>625
そら行き詰まるだろう
理由はデータが正規化されてないから

ワークシート関数だけで実現するのは困難なので、ユーザー定義関数にしてみた
A列に商品コードと年、B列から各月の売上が入ってるとして

' 指定されたコード、年、月から売上を検索
Function GET_QTY(code1, year1, month1)
  On Error Resume Next
  Application.Volatile
  r = WorksheetFunction.Match(code1, Range("A:A"), 0) ' 商品コード検索
  If Err Then ' 指定のコードが見つからなかった
    GET_QTY = "コード指定エラー"
  Else '年の検索
    i = r '検索開始列
    Do
      i = i + 1
      If Cells(i, 2) = "" Then ' 指定の年より前に次の商品コードが出てきたら検索を打ち切る
        GET_QTY = "年指定エラー"
        Exit Function
      End If
    Loop Until Val(Cells(i, 1)) = year1
    GET_QTY = Cells(i, month1 + 1) ' 結果を返す
  End If
End Function

627
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 13:56:30
OS Windows10
EXCEL 2016

これまで使用していたエクセルではF2キーを押せばセルへの入力ができましたが、
2016から?Fn+F2でないとできません
これを以前のエクセルのように、F2のみで行うことはできますか?よろしくお願いします。
コメント5件

628
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 14:19:27
>625
vlookupで2017が返されるまで出来たならば
offset関数で右に3セル移動させればいい

629
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 14:46:20
>627
俺も同じ環境
EXCEL2016でも F2キーだけでセル入力なのだが
君の所ではF2キーで一体なにが起こるの?
コメント1件

630
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 15:06:58
>627
Excelの問題というより
ここでの回答にあるような特殊なキーボードとかじゃねの?

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12113445337
>参考
>Ultraslim Plusワイヤレスキーボードのファンクション キーを
>標準のF1-F12機能に設定する方法について - ThinkCentre M71z, Edge 71z, Edge 91z
>https://support.lenovo.com/jp/ja/solutions/ht062227

631
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 15:53:26
>627
ノートPCってオチじゃねーよな?

632
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 17:27:21
>627
パソコンを買い換えたのが原因
Excelのバージョン無関係

633
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 20:20:09
>627
それ、キーボードの問題とちゃうか?

634
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 20:29:25
>629-633
どうやらPC側のようでした
dellのinspiron15ってのを使ってました

635
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/18 22:04:22
>625
データが2行目から開始され
B列〜M列に12か月分のデータがあると仮定して

<作業列>
O2 =IF(RIGHT(A2,1)="年",O1,A2)
P2 =IF(RIGHT(A2,1)="年",O2&"-"&LEFT(A2,4),"")
O2とP2 を下にオートフィル

それで
R1 に検索コード 例:111256
R2 に検索年 例:2017
R3 に検索月 例:4
があるとしたら
=INDEX(B:M,MATCH(R1&"-"&R2,P:P,0),R3)

636
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/19 23:32:55
エクセルでB4、六分割で作成しようとしています
わかりやすいよう、エクセルのセルをミリ指定で横三分割、縦二分割にし、そのサイズに合わせて画像を貼り付けたのですが
印刷プレビューに行くとうまくB4六分割になってくれず、右側と下側に大きめの余白ができています
また、ミリ指定したはずが、いつの間にか再度見てみると指定の数字が変わっていたりしています
もちろん余白設定は上下左右ギリギリまで引っ張っています

こう言う場合、印刷設定で倍率を引き延ばしてギリギリまで持って行くしかないのでしょうか?
うまいやり方あれば教えてください

637
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/19 23:44:26
エクセルの印刷はわけわからんぐらいずれるし、深追いしないほうがいい
セルのサイズはテキトーに取って、印刷プレビューの余白で「水平・垂直」にチェックを入れると合うと思う

これで無理なら諦めて、実際に印刷されたものからどれだけずれてるかをカンで合わせたほうが早い
コメント2件


638
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 00:20:25
モニター上で表現されるサイズとプリンタ側で出力されるサイズが違うんだから
合わせるのは至難の技   とはいえ、例えばSheet上に10cm×10cmの四角形を
描いて、それをそのまま印刷してみる  多分実測は9cm×9cmぐらいになる筈
或いはB4のサイズから上下左右5mmずつ小さい長方形をSheet上に描いてB4に
印刷したらどうなるか その結果から微調整していく ぐらいの工夫はしても損ではない
コメント1件

639
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 00:22:52
>638
やるやるw
ほんと何してるんだろう、って気分になるけどな
しかもプリンタ変えたらやり直し

640
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 00:31:52
>637-639
うーーん、やはりどうしようもないのね…
自宅PCじゃB4の印刷できないからキンコーズでやろうと思って持っていったけど、、、
自宅PCで印刷プレビュー見てみるとぴったりのように見えるんだよなぁ
地道に合わせるしかないんですね。
コメント1件

641
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 01:32:56
>637
前の職場思い出したわ
紙で出力して承認貰うからズレてるとやり直し
明らかなムダだし紙がもったいねぇ・・・w

642
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 08:16:53
余計な機能追加する前に印刷ぐらいちゃんとできるようにしてほしい
印刷機能の実装にいったい何年かかってるんだ

643
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 08:45:06
逆に印刷機能無くせばイイじゃん
コメント1件

644
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 09:07:31
>643
ほんコレ

645
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 09:09:59
>640
そう
とてつもなく馬鹿馬鹿しいけど一回やったら終わりだ、頑張れ

646
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 09:10:23
pdfで出力してpdfを印刷したら?
二度手間だけど

647
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 09:28:30
pdfに出力する時点でズレんじゃなかったっけ?
コメント1件

648
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 12:14:19
>647
pdfでずれなくなるまで調整して、
問題がなくなった所でそのpdfファイルを印刷しろってことでは?
コメント1件

649
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 12:48:37
右上から縦書きの文化だったものが、左上から横書きの文化への遷移中なんだから
若い連中がありったけ反発して枠線(四角囲い)重視の書類系をどんどん無くして
いけばいいんだ
そんな体裁整えることに、どんだけ無駄な時間と労力と人員を要しているんだ て話
欧米の役所書類で枠だらけの文書なんか見たこと無いぞ
他国の役所書類そのものを見たこと無いけど
コメント1件

650
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 12:59:55
俺は行幅12ピクセル〜48ピクセルくらいの
1ピクセルずつ増やして一番細い罫線引いたものをA4縦に印刷して
どこが何cmなのかとかやったことあるな

651
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 17:34:31
俺も自宅でpdf化してコンビニでA3印刷してるわ

652
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 17:38:07
ここで聞くのはスレ違いかもしれないけど、pdf変換の精度が高いアプリを教えて欲しい
今はフリーのcubePDFを使ってるんだけど、たとえばExcelだと罫線の一部が消えたり太さが変わったり、
他のアプリでも埋め込んだ画像が汚くなったり、なんかイマイチなんで
コメント1件

653
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 19:28:22
>648
そうそう
pdf出力はプリンタに左右されない
(けど、pdf出力のエンジンが変わると同じような弊害がまた起こる)

>649
そもそも論として、日本は分かち書きがないから本質的に枠線が必要なんだよ。
昔は句読点すらなかったけどあれはおかしかった。言語としておかしかった

>652
スレチではなく、考え方としておかしい。「変換ソフト」は無理がある。そもそもpdfに変換しようがないxlsファイルに精度を求めようがない
まともにPDF出力するドライバを探したほうがいいと思う。個人的に使っているのは「doPDF」
コメント1件

654
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/20 20:33:28
>653
分かち書きと罫線文化はあんまり関係ないのでは?
コンピュータが普及してからの、各国での割切りの違いかなと。

漢字文化圏だと、縦でも横でも項目を立てるのに2バイトで数文字程度で可能なのが、
例えば英語圏だと、略語を使わない限り1バイト文字でも数倍の文字数になる。

出版だとか手書き用伝票様式を手組みで印刷していた頃は、
欧米でもあれやこれやと表組みをするのだろうけど、
日常的に作成する文書・計算書で、いちいちマージするとかの表組みしていたら大変。
そもそもセルで整然と並んでいるし、文字もきれいだから、イイじゃん、罫線でメモリーも食うし・・・的な。
そのかわり、行間の取り方は上手いし、データとしての流用性も上がったとも思う。

海外の電力関係の詳細データをダウンロードして見てみると、
・項目を全て表示しようとすると、折り返し表示してもエラいことになる
・小計も1行データとして扱う
 (欧州各国の項目別データと同じ並びで、EU小計を1国データのような扱い方)
となっているのを最近知った、あくまでオイラの仮説だけど。

655
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/21 19:48:03
以下の環境のExcelファイルがあるのですが
シートを郵便番号順に並び替える方法をお教えください。

・顧客情報
・一人分の情報がひとつのシートになっている
・シートは999個ある
・どのシートもB3セルには必ず郵便番号が入力されている。
・手動ではなく自動的にシートを郵便番号順に並び替えたい

インターネットでも検索したのですが、シート名順に並び替える方法はありましたが、
郵便番号順に並び替えるものはなかったので質問させていただきました。
コメント1件

656
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 19:52:47
じゃあ一時的にシート名を郵便番号にすりゃいいじゃん
コメント1件

657
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 19:55:43
たとえば

a*12+b*11+c*10+d*11=1,234,567
a>30
c<24
a〜dは小数点以下第2位までの値

みたいなa〜dを羅列するような方法ってありますでしょうか。
Excelを使用しなくてもいいのですが。
コメント1件

658
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 19:58:55
>656
レスありがとうございます
シート名を郵便番号にしたらいいのではという提案ですが、
シート数が999個あるファイルが大量にあるため、
これをひとつひとつリネームしていくのは不可能に近いです…
コメント1件

659
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 20:15:47
>658
シート名は重複が許されないけど、郵便番号は重複してないの?
どっちにしてもVBA(マクロ)でやるしかないと思うぞ

660
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 20:15:52
vbaでいいんじゃね?
ソートのアルゴリズムは知らんがこれ回せばそのうち終わるだろ

Sub a()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 1 To 100000
r = Int((Worksheets.Count - 1) * Rnd(1)) + 1
If Sheets(r).Cells(3, 2) > Sheets(r + 1).Cells(3, 2) Then
Sheets(r).Move after:=Sheets(r + 1)
End If
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub
コメント4件

661
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 20:25:42
>660
おいw

662
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 20:34:13
>655
テンプレ使わん質問はスルーで
まあ VBA 使わないとダメだと思うが

663
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 20:36:48
>657
答えが無限にあると思うが
コメント1件

664
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 20:38:25
"シート名順に並び替える方法"ってVBAでやってると思うんだけど
その応用でそんなに難しくないとおもうんだけどな

665
657[sage]   投稿日:2017/02/21 20:46:37
>663
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

すみません、a〜dについては、不等号による条件設定ですべて範囲を絞るつもりです。

666
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 20:59:43
>660
冗談と思って試したら意外とうまくいってワロタ
これ最後にチェック入れれば普通につかえるじゃん

667
655[sage]   投稿日:2017/02/21 22:17:47
【1 OSの種類         .】 Windows7 プロ
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可

すみません
テンプレ確認していませんでした
こちらでお願いします

あと郵便番号に関してはダブっているものもあります
(2)、(3)みたいにふっていけると助かります
コメント1件

668
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/21 22:26:48

669
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/22 23:50:22
関数のうちシートを跨いでいるものを抽出(検索)する方法はありますか?

670
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/22 23:52:14
別シートを参照してるセルを探したいの?
「!」で検索すればいいんじゃね
コメント1件

671
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 14:48:46
【1 OSの種類 】 Windows7Pro
【2 Excelのバージョン】 Excel2013
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】 可
過去の取引データ一覧から
条件に見合った内容を抽出したい。


例えば、一つの行にA契約年、B業者名、C品目、
のように大体3つくらいの項目がある。


,脳紊欧3つに、プルダウンのように
検索できる窓を用意する。
例:業者名を選ぶと
◯◯株式会社
△△商事
オフィスXXX
などと選択できるよう小項目が表れる。
これは、A、B、Cすべてに用意されている。


一つの選択項目を選ぶと、
それに紐付いている同一行の情報が、
重複も含めて任意のセルに抽出される。
つまり、どのデータ(行)のどの項目(列)からも検索できて
検索結果にはすべてが表示される。

このような表を作りたいと思っています。
もしマクロのみで実現可能ならお願いします。
VBAは勉強始めたばかりで、皆さんとお話できるレベルにありません。
申し訳ありません。
コメント2件

672
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 15:03:42
>671
フィルターじゃ満足しないのか?

673
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 15:24:19
>671
http://www.dotup.org/uploda/www.dotup.org1165740.zip.html
マクロの編集はalt+f11で行う
範囲と貼り付け先は何となく分かるだろうからテキトーに編集してくれ
コメント2件

674
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 15:26:09
>671
>673に補足
一つの選択項目を選ぶと、
検索結果にはすべてが表示される。

これはめんどくさかったから実装しなかったぞ
もしやるならD1~F1にコンボボックスを配置して選択したときにフィルタかけてコピーみたいな流れになると思う

675
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 18:30:17
>673
ありがとうございました!

頂いたファイルを参考にして、
望んでいたものが完成しました。

本当にありがとうございます。
自分でももっと勉強しようも思います。

676
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 19:38:24
>670
ありがとナス!

677
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/23 19:49:55
茄子!

678
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 21:23:20
>660
遅くなりましたがありがとうございました
100単位までは理想通りできましたが
2000シートぐらいにするとなぜか並び替えがされなかったりしました
コメント2件

679
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 21:25:12
これランダムにぶん回してるだけだからな
数が多いと永久に終わらんよ

680
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/23 21:42:26
ランダムにしないようにしたらちゃんと終わるでしょ

681
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 21:50:03
>678
これでどうだ
vbaでバブルソートなんて初めてだわ

Sub a()
'高速化
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'バブルソート
'メインの後。減らしながら猛一周ずつする
For i = 0 To Worksheets.Count
'メインの周回。シートを一個ずつ見る
For k = 1 To Worksheets.Count - 1 - i
'カレントシートの数字
c = Sheets(k).Cells(3, 2).Value
'右のシート数字
r = Sheets(k + 1).Cells(3, 2).Value
If c > r Then
Sheets(k).Move after:=Sheets(k + 1)
End If
Next
Next

'高速化の後処理
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

682
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 22:13:31
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
処理を施した後、最後にsh1のみ残し
<Sh2とSh3のシートを同時選択して削除>をしたいのですがうまくいきません
シートはあらかじめ変数で置き換えています

Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Set sh1 = Worksheets("2016_加入者情報_A")
Set sh2 = Worksheets("2016_加入者情報_B")
Set sh3 = Worksheets("2016_加入者情報_C")


削除部分は
Sheets(Array(sh1, sh2)).Select

とするとうまくいかず
記録したところ下記になるため、変数ではなく直接シート名を止むを得ず入れています
できれば変数で指定した名前で選択してその後削除したいです
Sheets(Array("2016_加入者情報_B", "2016_加入者情報_C")).Select

"sh2","sh3"とダブルクオーテーションを入れたり色々試しましたがうまくいきません


また削除してよいかのメッセージを出さず消したいのですがそこについてはうまくいっています
(現在自宅のためコードを直接見れずそこを貼り付けできないのですが)

よろしくお願いいたします
コメント4件

683
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 22:24:58
>682
sh1のシート名はsh1.name
コメント1件

684
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 22:54:48
ワークシートコレクションは普通の配列と違って任意の位置への挿入が自由だから、
最後のシートを適切な位置に移動(挿入)するのを枚数-1回繰り返せばいいだけ

2枚のシートを入れ替えるバブルソートは逆に実装が煩雑になる

685
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 23:16:18
訂正

(誤)Sheets(Array(sh1, sh2)).Select

(正)Sheets(Array(sh2, sh3)).Select

686
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/23 23:35:11
>682
msdnを見る
https://msdn.microsoft.com/ja-jp/library/office/ff194988.aspx

select()の引数にfalseを入れればselectionにシートをどんどん追加できるって使い方があるからそれを使えばいいんだけど・・・

Set foo = Sheets("sheet5")
Set bar = Sheets("sheet6")
foo.Select (False)
bar.Select (False)
ActiveWindow.SelectedSheets.Delete

これでよくね?感がすごい

Set foo = Sheets("sheet9")
Set bar = Sheets("sheet10")
foo.Delete
bar.Delete
コメント2件

687
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 01:02:52
>678
'作業用シート作ってそこでソートしてから移動
Sub シートの並べ替え()
 Dim temp As Worksheet, ws As Worksheet
 Dim Cel As Range, Row As Long

 Application.ScreenUpdating = False
 '作業用シート作成
 Set temp = Worksheets.Add
 'シート名+B3セル内容取得
 Row = 0
 For Each ws In Worksheets
  If ws.Name <> temp.Name Then
   Row = Row + 1
   temp.Cells(Row, 1).Value = ws.Name
   temp.Cells(Row, 2).Value = ws.Range("B3").Value
  End If
 Next
 'ソート
 temp.Range("A1:B1").Resize(Row).Sort KEY1:=temp.Range("B1"), ORDER1:=xlAscending, Header:=xlNo
 '移動
 For Each Cel In temp.Range("A1").Resize(Row)
  Worksheets(Cel.Value).Move AFTER:=Sheets(Sheets.Count)
 Next
 '後始末
 Application.DisplayAlerts = False
 temp.Delete
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
End Sub
コメント1件

688
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 06:02:12
>682
> Sheets(Array("2016_加入者情報_B", "2016_加入者情報_C")).Select
これができるなら Sheets(Array(sh2.Name, sh3.Name)).Select でいけるはずだが...
まあ、VBA 的には >686 が正解だと思う
コメント1件

689
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 08:24:33
日本語変数や関数毛嫌いしてたけど、お前らに指摘されて使ってみたらめっちゃ捗ったわwww
ほんとありがとな
これからはガンガン使っていくわ
コメント1件

690
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 10:24:43
【1 OSの種類 】 Windows7Pro
【2 Excelのバージョン】 Excel2010
【3 VBAが使えるか】はい
【4 VBAでの回答の可否】 可

ファイル起動時にリネームして保存(終了はしない)する簡単なVBAを組んでいます。
保存先はWindowsのTempフォルダ。
要は元ファイルに手を加えさせない為です。
この場合、元ファイルの一時ファイルは起動時に作成されますがリネーム後に消えます。
しかし特定のPCで特定のファイル名の場合だけ元ファイルの一時ファイルが消えずに残ってしまいます。
リネームファイルを閉じればこの一時ファイルも消えます。
共有フォルダで使用しているのですが、この現象のため他のPCから元ファイルにアクセスした場合読み取り専用になってしまいます。

状況とやってみた事
・最初からこの現象が起こっていたわけではなくある時期から発生するようになった
・共有フォルダではなくそのPCのHD内で実行しても同様の結果となる
・ファイル名を変更するだけで現象が起きなくなる(元ファイル名は**書のような名前->**書2とすれば発生しない)
・アンチウィルスソフトはアンインストールしてみたが変わらず。
・エクスプローラーのプレビュー機能は切っている

何かアドバイスを頂けないでしょうか
コメント2件

691
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 11:09:46
>690
動作テストでファイル名を変更する時
「**書」→「**書2」みたいに1文字追加するだけでなく
「**書」→「書**」のように文字数が変わらなくて、位置が入れ替わっただけのパターンもテストしてみて

あとは、該当マシンに別ユーザーを新規に作って、その環境でも発生するか、とか
コメント1件

692
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/24 12:16:55
>689
VBAはプログラムであって、プログラムではない
alt.F8からの呼び出しもあるから、パブリックは日本語にして呼び出し用。内部関数はプライベートにして英語って使い分けてるわ

693
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/24 13:25:16
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 調べたがよくわからなかった
【4 VBAでの回答の可否】


A列とBCD列を比較して、A列と違う数値なら文字or背景に色を付けたい
⊃Г良佞い織札襪凌瑤鮨瑤┐燭ぁ聞膩彙佑任呂覆、何個色がついたか)
コメント1件

694
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 15:03:06
>693
>A列とBCD列を比較して、A列と違う数値なら文字or背景に色を付けたい
→ 条件付き書式で可能
例)B1:D10を選択して条件付き書式の数式で
   =$A1<>B1

>>⊃Г里良佞い織札襪凌瑤鮨瑤┐燭
→ 無理
[代替案]
  ' A列とBCD列を比較して、A列と違う数値をカウント(色ではなく同条件)
  例) =SUMPRODUCT((A1:A10<>B1:D10)*1)
コメント1件

695
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 15:31:21
>694
ありがとうございます
その方法で出したいデータは出すことが出来ました

696
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 18:28:47
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否

初めて質問します。ルール違反が有ればすいません。

他ブックからコピーして本ブックに貼り付けした時に、
貼り付けしただけで勝手に値貼り付けにできる方法ってあります?

会社の管理職(又はPC初心者)には、貼り付ける時は値貼り付けでお願いしてるのに
何回もそのまま貼り付けして、他ブックの数式をそのまま持ってきて
他セルの数値を参照して困ってます。

他ブックには、業務上、シートの保護で数式を隠す事はできません。
最悪、VBAで他ブックを選択して自動でコピペするマクロを作るつもりですが、
他ブックもフォーマットによってセル位置が違うため、マクロの使い方の手順書作成、
管理職への説明で労力を費やすので、VBA以外でできる方法ってありますか?
コメント3件

697
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 19:32:14
>690
OSかエクセルが関係している気がするって当たり前か。ハードリンクくさい動作をしてる気がする
OS・エクセルの再インストールが可能ならやったほうがいいと思う
色々考えるよりそっちの方が早いだろう

無理ならアンチウィルス関係なく以下のアプデしてみるとか
http://esupport.trendmicro.com/solution/ja-jp/1311641.aspx
コメント1件

698
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 19:38:13
>696
・そのブックをcsvで作る。絶対に値になる
・貼り付けた瞬間or保存前に値になるvbaを組む
ってかフォーマットを配ったほうがいいんじゃないか
コメント1件

699
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 19:55:07
>696
エクセルを複数起動して別インスタンスでブックを開けば値貼り付けになるけど・・・
ダブルクリックでは開かない
コメント1件

700
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 20:15:59
>696
値と数式も判らないレベルの低いヤツも使うなら
Book構成は入力Sheet、表示Sheetに完全に分け数式は一切使わず全てVBAで処理すべきかも?
コメント1件

701
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/24 21:00:41
レスありがとうございます。

>698
>700
短文を意識した為、後出しで申し訳ありませんが
実は他ブックは、累積データとして利用されていて、フォーマットが二種類有り
旧フォーマットは、数式が入っていて、新フォーマットは、数式無しになっています。
旧からコピーされた場合がネックになります。

>>・貼り付けた瞬間or保存前に値になるvbaを組む
それだと間違ったセルを参照した数値が値に変わるだけではないですか?
それとも、貼り付け操作をしたら値貼り付けなるvbaを組めるという事ですか?


>699
難しそうですね。
私含めみんな理解できなそうです。
コメント2件

702
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 00:39:19
>701
VBA否だけど VBA使えるらしいから
こうゆうのどうです?

他ブックから 自ブックへ移動してきた時
クリップボードを強制 値変換する

Private Sub Workbook_Activate()
 Dim CB As Object
 Dim STR As String

'DataObjectです
'Microsoft Forms 2.0 Object Libraryを参照設定しなくても良い
 Set CB = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

 CB.Clear
 CB.GetFromClipboard
 STR = CB.GetText
 CB.Clear
 CB.SetText STR
 CB.PutInClipboard
End Sub
コメント1件

703
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 01:13:56
>701
こんな感じにすれば保存する時に自動的にsheet1の数式を全部、計算結果の値にしてくれる
記述する場所は「thisworkbook」な

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").UsedRange.Value = Sheets("Sheet1").UsedRange.Value
End Sub
コメント1件

704
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 04:19:53
>702
ありがとうございます。
月曜以降に会社の環境で試させて頂きます。
これなら上司へは、担当者レベルの操作は同じで
自ブックをxlsmに変更したのみと報告できそうです。

>703
ありがとうございます。
ブックに仕込む事でいろいろと応用できそうです。
しかし、如何せん他ブックを弄るとなると、柵が多くなるので、
今回は別の方法を取るつもりですが、
便利なコードを教えて頂いので、保存して今後活用します。

705
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 19:45:08
>683
これでした
単純なことがわかっていませんでした
ありがとうございます

706
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 19:47:29
>686
Set foo = Sheets("sheet5")
Set bar = Sheets("sheet6")
foo.Select (False)
bar.Select (False)
ActiveWindow.SelectedSheets.Delete

これは削除はできました
でも削除してよいか?のメッセージが都度出まして・・

Set foo = Sheets("sheet9")
Set bar = Sheets("sheet10")
foo.Delete
bar.Delete
これはエラーになりました
今会社出ないのでエラー内容がわからないのですが
でもまたちょっといじってみようと思います

ありがとうございました
コメント1件

707
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 19:48:44
>688
まさに
nameが抜けていただけでした
ありがとうございます

708
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 20:08:12
>682ですが
結局下記となりました
シートをまとめて選択する理由としては
削除してよいか?のメッセージを出さずその後ファイルをsaveしたいということがありました
なのでメッセージを消す指令を1回で済ませたかったからです

Application.DisplayAlerts = False
Sheets(Array(sh2.Name, sh3.Name)).Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
コメント4件

709
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 20:09:01
で、次は↑これを含んだ指令をフォルダ内のファイル全部に処理したいがミッションで
ググって↓見たいのを拾ってきたので、これをアレンジしようと思っています

あとシート削除後の別ファイルににワークシート関数(IFERROR+VLOOKUP+MATCH)を含んだ処理を
追加したいと思っているのでまた不明点が出たら質問しにくるのでよろしくお願いいたします
+++++++++++
sub macro1()
 dim myPath as string
 dim myFile as string
mypath = "C:\test\" ’指定フォルダのブックを順繰り拾う
 myfile = dir(mypath & "*.xls*")
 do until myfile = ""  ’ブックを開いて処理を行い保存して閉じる
  workbooks.open mypath & myfile
  activesheet.range("A1") = "DONE"
  activeworkbook.close true
  myfile = dir()
 loop
end sub

必要に応じて
・画面の表示を抑制する
・再計算を手動にする
といった手管を追加して高速化を図ります。

710
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 20:09:41
>706
> でも削除してよいか?のメッセージが都度出まして・・

>687 を参考にすべし
>  Application.DisplayAlerts = False
>  temp.Delete
>  Application.DisplayAlerts = True

> Set foo = Sheets("sheet9")
> Set bar = Sheets("sheet10")
> foo.Delete
> bar.Delete
> これはエラーになりました
まさか sheet9 って言うシートがないってオチじゃないよね...
コメント1件

711
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 20:12:10
>708
これでメッセージでなくなるよ
ただ確認メッセージ無さすぎは怖いけどね

http://hp.vector.co.jp/authors/VA011407/vbatech/sheet/delete.htm
Application.DisplayAlerts = False
WorkSheets("削除するシート名").Delete
Application.DisplayAlerts = True
コメント1件

712
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 20:17:09
>710
あ、はい
最終的に>708の通り、使っています

>まさか sheet9 って言うシートがないってオチじゃないよね...
そこはちゃんとシート名を変えたので

713
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 20:23:17
>711
はい
>708で書いた通り、それでうまくいっています

>ただ確認メッセージ無さすぎは怖いけどね
やっぱりそうですかね
一応あまり重くないファイルなのでバックアップは別でとっておくことで対策しました
ただ連続して100ファイルくらい処理する可能性があるので、
毎度メッセージポンポン押すのもたるいなーと思い
今後メッセージ出すかは判断しようと思います

714
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 20:25:12
あぁごめん>708のレス下半分隠れてた。全く同じこと書いてたねw
ともあれ、乙です

715
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 20:27:15
いえいえ、どもです
勉強になりました

716
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 21:06:07
確認メッセージを「シートを◯枚削除します。続行しますか」などにして、yesnocancelにすればいいのでは?
コメント2件

717
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 21:17:16
>716
もしそのメッセージにする場合、実際削除する枚数を拾わせて表示する、ということでしょうか?

718
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 21:44:53
そうです。

719
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 22:08:15
>716
だったらそのまま削除アラートを表示させるかな、と思います
元のシートの枚数は絶対に変わらないファイルなので、枚数確認は不要のため

ただそれとは別のそういう指令を出したいとなってすぐにコード書けるくらいになりたいです
シート数をカウントするならまだできそうですが
削除しようとする枚数カウントはどうやるのか全く不明で・・
ActiveSheet.Index To Sheets.Count
" & ActiveWindow.SelectedSheets.Count & "
あたりを組み込んで使うのでしょうか?
いまExcel起動できない環境で試せないのですが

720
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 22:11:37
ActiveWindow.SelectedSheets.Count
使えるね、それでおk

721
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 22:20:16
おぉ、なるほど
削除しようと選択してアクティブになってるウィンドウをカウント、ですね
すみません、脳内アナログなもんでいつも言葉に置き換えていて
月曜以降に会社でちょっと試します
Excel不得手な人と共有するような場面で使えそうですので
ありがとうございます

722
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 22:20:22
それか、単純にsheet1以外のシートを全て削除しますか?とかでといいと思うけど。
スマホ打ちなので、間違いあったらすみません。
Call部分は別にsub プロシージャ (とりあえず
sheet_deleteにしてます)作るか、その部分に削除するプログラム書いてもいいです。

dim myAns As integer
myAns = msgbox ("sheet1以外を全て削除します。よろしいですか?", vbyesno, "削除確認")

if myAns =6 then '6はvbyes
call sheet_delete
else
msgbox "削除を中止しました"
endif
end sub

みたいな感じ?

723
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 22:24:08
でも100ファイルなら、アラートない方が楽ですね。
よく読んでなくてすみません。

724
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 22:42:55
横だけど
if myAns =6 then '6はvbyes
って書くぐらいなら
if myAns =vbyes then
でよくね

725
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/25 22:43:24
あ、そうなんです、 ちょっとファイル数多くて
てかスマホ打ち??すごいな・・
でもアラートなしで突っ走らせるのもどこか怖いという思いもあり
削除前に出すメッセージ、いいかもなので試してみます!

726
690[sage]   投稿日:2017/02/25 22:51:40
>691
遅レスすいません。
名前の変更法則は幾つか試したがだめでした。
別ユーザーを試した所発生しませんでした
OSなりのリンクか何かのソフトのロックと思うのでがよくわからないためOS再インストール(取り合えず別HDDで)する事にしました。
アドバイス有難うございました

727
690[sage]   投稿日:2017/02/25 22:54:07
>697
遅レスすいません。
やなりOSか他のソフトからの影響とは思うのですが原因がわからないためOS再インストールする事にしました。
アドバイス有難うございました。

728
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/26 22:34:20
Excelのフォントサイズ縮小ボタンって選択セル全部が同じ大きさになっちゃうんだっけ
18P11P10Pが16P10P9Pになるもんだと思ってた

729
名無しさん@そうだ選挙にいこう[sage]   投稿日:2017/02/26 22:49:19
そうだよ

730
名無しさん@そうだ選挙にいこう[]   投稿日:2017/02/26 22:56:01
どこ探してもないな 自作するか
更新情報
・スレッド一覧ページで過去ログのタイトル検索・一覧表示ができるようになりました(2016/1/20)
NGワード登録
登録する
スレッド内検索

ビジネスsoft板 タイトル検索

このスレッドが人気です(実況系)
羽鳥慎一モーニングショー★2 (567)テレ朝実況
羽鳥慎一モーニングショー★1 (1000)テレ朝実況
実況 ◆ テレビ朝日 47012 火事大好き過ぎて引く (423)テレ朝実況
はやドキ!& あさチャン!月曜日★2 (588)TBS実況
連続テレビ小説 べっぴんさん★205 (895)NHK実況
実況 ◆ 日本テレビ 54413 (187)NTV実況
実況 ◆ フジテレビ 82743 (311)フジ実況
白熱ライブ ビビット★1 (68)TBS実況
このスレッドが人気です(ニュース系)
【森友学園】安倍夫人、名誉校長辞任 安倍首相「寄付を募る紙を見て私も驚愕した。断っているのに名前を使われ遺憾だ」★79 (322)ニュー速+
【森友学園】安倍夫人、名誉校長辞任 安倍首相「寄付を募る紙を見て私も驚愕した。断っているのに名前を使われ遺憾だ」★78 (1000)ニュー速+
【社会】非喫煙者がたばこの煙を吸い込む“受動喫煙”対策、全居酒屋を禁煙とする方向★12 (561)ニュー速+
【社会】男性保育士による女児の着替え 市長「させる!」、親「やめて!」 ★2 (1000)ニュー速+
【森友学園】安倍夫人、名誉校長辞任 安倍首相「寄付を募る紙を見て私も驚愕した。断っているのに名前を使われ遺憾だ」★77 (1000)ニュー速+
【マスコミ】トランプ大統領のスウェーデンでテロ発言 実際は「テロ」とは言っていなかった! 日本メディアの翻訳に問題か? (373)ニュー速+
【森友学園】安倍夫人、名誉校長辞任 安倍首相「寄付を募る紙を見て私も驚愕した。断っているのに名前を使われ遺憾だ」★76 (1000)ニュー速+
【社会】男性保育士による女児の着替え 市長「させる!」、親「やめて!」 (1000)ニュー速+
ビジネスsoft板の人気スレ
Excel総合相談所 125 (730)
一太郎総合スレッド その18 (515)
Office2010/2013アクティベーション総合スレッド part5 (913)
AutoCAD総合スレ part6 (224)
Office2010/2013アクティベーション総合スレッド part3 (994)
【FileMaker】ファイルメーカーユーザの集い Part2 (996)
【質問不可】Excel総合相談所スレの雑談・議論スレ3 (956)
こいつを警察に通報してください (281)
Word(ワード)総合相談所 Part22 (926)
一太郎総合スレッド その16 (1011)
AutoCAD総合スレ part4 (990)
LibreOffice/OpenOffice.orgってどうなの?Part16 (988)
ファイルメーカーユーザの集い Part3 (833)
【MS互換】KINGSOFT Office Part6【VBA対応】 (762)
DWG【DraftSight】FreeCAD (970)
【MS】Office 365 総合スレ 【クラウド】 (1023)
LibreOffice/Apache OpenOffice 総合相談所 11 (1007)
一太郎総合スレッド その15 (990)
LibreOffice/Apache OpenOffice 総合相談所 12 (648)
[test] 書き込みテスト 専用スレッド [てすと] (246)
Access総合相談所 27 (462)
エクセル対三四郎 (459)
Groupmax (134)
桐について語るスレ 3 【サーバー未満 Excel以上】 (641)
▲▼▲カルキングの広場▲▼▲Part 1 (178)
【監視される社員たち】LanScope【人権侵害?】 (330)
アドビ、不細工アクティベーションやめろや (117)
【独占】ゼンリン地図不買運動【傲慢】 (592)
このサイトについて
このサイトは2ちゃんねるからデータを取得し、表示するサービスです。
画像のインライン表示機能について
画像のURLの後ろにある[画像をインライン表示]をクリックすると、URLの下に表示します。
表示される画像は横幅100pxに縮小されていて、クリックすると原寸で表示します。
このサイトの特徴
1)スレッド内検索ができます
2)レス(「>>1」など)のポップアップができます
3)不適切な言葉を含む投稿を表示しません
4)ページ内で画像を直接表示できます
5)2ch他スレッドへのリンクはタイトル・板名つきでリンクします
6)すっきりとしたデザインで表示します
7)最新スレや前スレをチェック・一覧表示します
8)NGワード機能の搭載でイヤな言葉が目に入りません
9)荒らしを自動チェックします
10)スレッド内・同一IDの書き込みだけ表示できます
11)レスの返事をレスされた発言の下に表示する「まとめビュー」が利用できます
12)シリーズ化したスレッドの一覧を表示します
13)最新のスレッドがある場合はお知らせします
削除について
こちらをご覧ください
機能要望について
現在機能要望受付中です。
問い合わせについて
こちらのページからどうぞ
Amazon


このサイトは2ch.scからデータを取得・表示しています。削除などについてはこちらをご覧ください。 アクセスモード:差分取得 - 正常取得 - 108件 - 取得完了