Excel総合相談所 134 - 暇つぶし2ch

Excel総合相談所 134 ..

2:名無しさん＠そうだ選挙にいこう
19/02/15 19:27:40.37 .net
１乙

3:ぴころ
19/02/15 21:35:13.24 .net
新スレおめ☆（＾▽＾）

4:名無しさん＠そうだ選挙にいこう
19/02/16 10:26:12.04 .net
前スレが終わって未解決の質問は、もう一度最初から質問しなおした方がいいよ

5:名無しさん＠そうだ選挙にいこう
19/02/16 10:34:51.92 .net
前スレでの質問を再度書きます
【1 OSの種類　　　　】 Windows7
【2 Excelのバージョン】 Excel2016
【3 VBAが使えるか　】いいえ
【4 VBAでの回答の可否】否
A B　　　 C　
1　名前　　性別
1 　(空欄）
1　誕生日
2 　名前　　(空欄)
2 　住所　方書
2　(空欄)
2　身長　　体重
3...
のようになってるものを、左端の番号毎に一列にする方法はありますか
　身長体重の行だけは両方空欄なら、行自体が無いというものになってます
　追記:1番号につき最大4行、データ項目は最大7です

6:名無しさん＠そうだ選挙にいこう
19/02/16 10:38:51.02 .net
>>5
横並びにした時、空欄は詰めるのか、セルを空けるのかどっち？

7:名無しさん＠そうだ選挙にいこう
19/02/16 10:57:06.45 .net
空けてほしいです

8:名無しさん＠そうだ選挙にいこう
19/02/16 11:06:56.90 .net
>>7
D～K列を作業列に使う方法
まず1行目を空けて、データがA2から始まるようにしてから、以下のセルに以下の数式を入れて、下にガーっとコピペ
すると横並びのデータができるから、値貼り付けして空行を削除
これでいいかな
D2=IF(AND($A1<>$A2,A2<>""),A2,"")
E2=IF(AND($A1<>$A2,B2<>""),B2,"")
F2=IF(AND($A1<>$A2,C2<>""),C2,"")
G2=IF(AND($A1<>$A2,B3<>""),B3,"")
H2=IF(AND($A1<>$A2,C3<>""),C3,"")
I2=IF(AND($A1<>$A2,B4<>""),B4,"")
J2=IF(AND($A1<>$A2,$A2=$A5,B5<>""),B5,"")
K2=IF(AND($A1<>$A2,$A2=$A5,C5<>""),C5,"")

9:名無しさん＠そうだ選挙にいこう
19/02/16 12:49:58.59 .net
数式で横列に下行のデータを反映
ドラッグ
値貼付け、不要となった行の掃除
ですね
やってみるとわかる（気がしてる）のですが
自分では思いつきません、ありがとうございました

10:名無しさん＠そうだ選挙にいこう
19/02/16 15:56:04.28 .net
【1 OSの種類　　　　】 Windows7
【2 Excelのバージョン】 Excel2010
【3 VBAが使えるか　】勉強中
【4 VBAでの回答の可否】可
public sub mkData(d1 as long, d2 as long, d3 as integer, d4 as integer)
***
end sub
public sub jikko()
call mkData(5000,2000,100,100)
end sub
こういうプロシージャを書いて、jikkoを実行しようとするとmkDataのプロシージャ名のところが
黄色くなり、「ユーザー定義型は定義されていません」と出てきてしまいます。
引数を指定すると出てくるようなんですが、何がダメなのでしょうか？

11:名無しさん＠そうだ選挙にいこう
19/02/16 16:03:30.40 .net
>>10
普通に動いたよ
URLﾘﾝｸ(i.imgur.com)

12:名無しさん＠そうだ選挙にいこう
19/02/16 16:05:21.68 .net
引数を省略すると
「引数は省略できません」
というエラーメッセージ
Public Sub jikko()
Call mkData
End Sub

13:名無しさん＠そうだ選挙にいこう
19/02/16 16:36:34.35 .net
>>12
URLﾘﾝｸ(officetanaka.net)

14:名無しさん＠そうだ選挙にいこう
19/02/16 17:58:06.54 .net
>>10
とりあえずコードは打ち直さずにコピペしてくれ
なんかのタイポだと思う

15:名無しさん＠そうだ選挙にいこう
19/02/16 23:39:55.28 .net
ピボットテーブルが優遇されてるように感じる。
イベントもいっぱいあるしヘルプにも良く出てくる。
だけど俺、使ったことないし、どんなのかあまりわかってない
ピボットテーブルってそんなにいいものなの？
いろんなジャンルの仕事でつかうものなの？

16:名無しさん＠そうだ選挙にいこう
19/02/16 23:49:35.32 .net
>>15
死ぬほど便利だから絶対に使えるようになっておいたほうが良い
ただ、結構柔軟性が無いので「何が出来ないか」を知っておかないと、
ピボットで捏ねくり回した挙げ句、手作業で最初から作るという事をするハメになる

17:名無しさん＠そうだ選挙にいこう
19/02/17 00:06:13.58 .net
大抵は関数とVBAで済ませるからピボットテーブル使ったことないや

18:名無しさん＠そうだ選挙にいこう
19/02/17 00:17:16.11 .net
vbaでピボットを使うとホント最強

19:名無しさん＠そうだ選挙にいこう
19/02/17 00:43:20.73 .net
ピボットって簡単手作業でグリグリいろんなこと試せるところがいいんじゃないの？
最初から表現方法決まってるならvbaがよさそうだけど試行錯誤して自分の表現したいグラフを探れるところがいいところだと思うんだけど。

20:名無しさん＠そうだ選挙にいこう
19/02/17 00:47:43.29 .net
ああちょっと語弊あったかな
一回目は試行錯誤するけど、2回目はvbaでパーって出す感じ。毎月同じ資料作るときとかね
一回目からvbaは使わない

21:名無しさん＠そうだ選挙にいこう
19/02/17 10:49:06.30 .net
おまえらVBA 、VBAって無知からVBA使えるようになるまでどれくらいかかんの？

22:名無しさん＠そうだ選挙にいこう
19/02/17 11:20:28.04 .net
>>21
プログラムの知識があるならすぐ。
無いなら止めといた方がいい。

23:名無しさん＠そうだ選挙にいこう
19/02/17 11:21:34.60 .net
>>21
人に丁寧に聞く姿勢があれば、誰かが手取り足取り教えてくれる
単純な物なら1日で出来るようになると思う
君の態度だと誰も教えてくれないだろうから、いつできるようになるかは良く分からない

24:名無しさん＠そうだ選挙にいこう
19/02/17 11:22:07.67 .net
って書いたらいきなりハネられてて笑った
まぁそういう事だ

25:21
19/02/17 12:27:50.29 .net
ありがとう！がんばるわ！

26:名無しさん＠そうだ選挙にいこう
19/02/18 19:49:01.91 .net
スペシャリスト2013は受かったんだけどエキスパートって難しい？
セルの大きさ変えられるのも知らないとこから使い始めて2ヶ月でスペシャリストはいけた
点数は960点台
どのくらいかかるか見当つけたい
簡単なマクロなら組めるとこでグラフとブックの扱いは苦手

27:名無しさん＠そうだ選挙にいこう
19/02/18 21:59:17.59 .net
【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
VBAを使い共有フォルダにある別のPCで開いているブックをReadOnlyで読み込み専用で開いたあとに
読み込み専用ブックを消そうとするとApplication.DisplayAlertsを使っても警告文が出ます。
読み込み専用ブックのみを消すことは可能なのでしょうか？

28:名無しさん＠そうだ選挙にいこう
19/02/18 22:04:22.76 .net
>>26
エキスパートとスペシャリストは範囲が違うだけでそんなにレベルは違わないと思うよ
内容がほぼ重複してないからエキスパートも新しく覚えるつもりで勉強してみれば
スペシャリストで960点取れるなら余裕よ

29:名無しさん＠そうだ選挙にいこう
19/02/18 22:13:34.73 .net
>>26
吸収はやいな
 >>27
×読み込み専用
○読み取り専用
×消す
○閉じる
上書き保存せずに閉じるなら、以下はどうかな
保存フラグを無理やりtrueにすることで上書き保存の警告を出させない
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
実際には以下のようにopenしたbookをsetしておくと思う
set readbook = Workbooks("foo.xlsx").open
readbook.Saved = True
readbook.Close

30:名無しさん＠そうだ選挙にいこう
19/02/18 22:37:09.33 .net
>>29
ありがとうございます。
明日会社で確認してみます。

31:名無しさん＠そうだ選挙にいこう
19/02/18 23:54:44.36 .net
excel2016 64bit
win10 64bit使ってます
officeのアップデートバージョン1901以降かなりexcelが重くなりました。
起動後、常に再計算ばかりです
オプションの言語から、英語を既定にする若しくは、一つ前にダウングレードすると収まりますが原因は何でしょうか？

32:名無しさん＠そうだ選挙にいこう
19/02/19 00:07:00.50 .net
>>31
原因なんて山程考えられるが・・・
・アップデート
・フォントが多い
・F9キーが押しっぱなしになっている
原因を考えず、解決方法を試しまくった方が良い
とりあえずアップデートを一度アンインストールしてみてはどうだろうか
URLﾘﾝｸ(121ware.com)

33:名無しさん＠そうだ選挙にいこう
19/02/19 03:15:17.52 .net
エクセルの保護ってどれくらい厳重なのか知りたいです。
VBA駆使して、かなり業務効率がよくなるシステム（.xlsmファイル）を作ったとして、
それを使えばみんなの無給残業がなくなるだろうから使ってもらいたいんだけど、
「それ、（私）が作ろうとしてたのがぜんぜん使えないポンコツだったから俺がまともに
改良したんだよ。みんな使って」と、手柄を横取りしそうな先輩がいます。
かってな改良（起動時に「○○（先輩名）作」と表示されるだけのくだらない改変）をされるのが目に見えてる
ので、それを阻止したい（ただの私のケチな性格のせいですが）です。
VBAにパスワード保護するとしても、数打ちゃ当たる式で突破を試みるフリーソフトを使えば
簡単に破られてしまうものなんでしょうか？
文章か、ってくらいの長い文字列でパスワードをかければ、VBAの中身までは見られないってことは
ないでしょうか？
所謂VBAの保護以外に、なにかいい改変阻止ガードってあるのでしょうか？

34:名無しさん＠そうだ選挙にいこう
19/02/19 04:10:43.35 .net
>>33に追加なんですが
エクセルだけで作った業務用のソフトを有料で売ってる人とかいるじゃないですか。
ああいう人は、もし簡単にソースを見られたら食いっぱぐれると思うんですが、
どういうプロテクトをしるのでしょうか？
できれば私もマネしたいです。

35:名無しさん＠そうだ選挙にいこう
19/02/19 05:33:59.90 .net
>>33
パスワードを固定しなきゃ良いんじゃないの？
可変パスワードを作る式をどこかのセルに仕込んどけば？
あとファイル閉じる前に毎回
BuiltinDocumentProperties("Author").Value = "オレ様 "
とかも未熟な先輩には有効かもね

36:名無しさん＠そうだ選挙にいこう
19/02/19 07:12:11.32 .net
>>27, >>29
別に無理やりやる必要はなくて
ActiveWorkbook.Close SaveChanges:=False
ってやるだけでいい
URLﾘﾝｸ(support.microsoft.com)

37:名無しさん＠そうだ選挙にいこう
19/02/19 07:31:56.46 .net
>>33
> エクセルの保護ってどれくらい厳重なのか知りたいです。
保護としてはほぼ無意味
MS自身がこんなことを書いてるくらいだし
URLﾘﾝｸ(cybersecurity-jp.com)
読み出しパスワードは暗号化もするしそれなりの意味はあるけどパスワード知ってなきゃ使えないから人に使わせるのは無理だし
そもそも
> VBA駆使して、かなり業務効率がよくなるシステム（.xlsmファイル）を作った
としたら上司にこういうの作ったんだけどどうでしょうと相談すればいいだけ

38:名無しさん＠そうだ選挙にいこう
19/02/19 07:49:13.94 .net
excelの機能に頼るのはいいけどその人をなんとかしないとこれから先も同じようなことが起こるな

39:名無しさん＠そうだ選挙にいこう
19/02/19 07:49:57.33 .net
>>33
パスワード総当りしなくても中身を見る方法はある
誰が作ったか分かるようにしたいなら自分が作ったと言って配布するとか周りに根回ししておくとかアナログな対応が楽だと思う

40:名無しさん＠そうだ選挙にいこう
19/02/19 11:02:49.79 .net
>>33
vbaだけじゃ無理
VB.NETで作ってdllにして呼び出すのが一番楽で確実に隠蔽できるけど、
多分それすらしんどいと思うから
 >>37
みたいに上司に相談が良いと思う
で、「知らない人が勝手に改造するとファイルが破損する可能性もあるので絶対に辞めてくれ」
と釘を差しておけば大丈夫

41:名無しさん＠そうだ選挙にいこう
19/02/19 11:03:34.20 .net
「確実に」ってのはvbaコードを横取りする程度からの防衛策としてね
dllの中身見れるような人ならvbaぐらい書けるという前提

42:名無しさん＠そうだ選挙にいこう
19/02/19 12:46:22.80 .net
唐突にすみません。sumif関数について教えてほしいです！
合計範囲の部分がセル参照での値の場合、結果が0で返るのですがどうすれば良いでしょうか？
ex:a列1〜3に月、火、月。b列1〜3に100、101、102。c1〜3列にb1×2、b2×2、b3×3の時、=sumif（a1:a3,月,c1:c3）とすると204にならず0となってしまいます。どうすれば204になりますか？

43:名無しさん＠そうだ選挙にいこう
19/02/19 13:13:42.89 .net
>>42
=SUMIF(A:A,"月",C:C)
URLﾘﾝｸ(i.imgur.com)
506じゃねーの（はなほじ

44:名無しさん＠そうだ選挙にいこう
19/02/19 16:46:57.21 .net
>>43 そうですね。この場合506になりますね。※b3×2と書いたつもりでした、すみません。
画像も見ました！c列の値はセル参照を用いた数式（=b1×2）のような形で記載されてますか？上記のような場合だと、0で表示されてしまいます。。

45:名無しさん＠そうだ選挙にいこう
19/02/19 16:55:41.69 .net
>>44
・数式タブ→数式の表示
・D列にその数式を手で打ち込む
どちらかで対処するしかない
ちなみに何のためにそんな事してるの？

46:名無しさん＠そうだ選挙にいこう
19/02/19 18:56:01.91 .net
>>44
普通に出るはず
月　じゃなくて　"月"
という指摘なだけじゃね

47:名無しさん＠そうだ選挙にいこう
19/02/19 22:29:05.83 .net
>>28
ありがとう
2ヶ月2ヶ月くらいのつもりで計画立ててみるわ

48:名無しさん＠そうだ選挙にいこう
19/02/20 00:51:58.17 .net
すいません、Excelが上手くなるコツってありますか？
簡単な関数がわかる程度ですがVBAなどもマスターしたいと思います。

49:名無しさん＠そうだ選挙にいこう
19/02/20 01:08:11.28 .net
ある程度目標を持って勉強した方がいいね
vbaと言っても文字列の変更やファイル操作など非常に広い範囲で色々できる
まずは目標を決めてみるのがいいんじゃないかな

50:名無しさん＠そうだ選挙にいこう
19/02/20 16:02:41.01 .net
>>37　>>40
先輩＝上司だったり

51:名無しさん＠そうだ選挙にいこう
19/02/20 16:13:56.38 .net
今日になって条件付き書式の文字色が反映されてもすぐ戻るバグが発生するようになったんだけど俺だけ？
例えば、全ての文字色を白にしてて
VBAでネットから情報を取り込んで数値が条件にあっていれば、文字色が黒になって見えるようにしてるんだけど
取り込んだ瞬間は黒文字になるんだけど、アクティブにしたら白字に戻るみたいな現象が起こるようになった
誰か同じ人いる？Excelは365つかってる

52:名無しさん＠そうだ選挙にいこう
19/02/20 17:35:07.96 .net
おきんぞ
新しいブックでも再現するの？

53:名無しさん＠そうだ選挙にいこう
19/02/20 17:43:15.12 .net
ないねぇ

54:名無しさん＠そうだ選挙にいこう
19/02/20 18:53:39.47 .net
エクセルに入力されているセルの一部のデータが、入力されているのにも関わらず罫線や文字が画面上表示されないバグが起こっていて困っています。
セルを確認するとデータは間違いなく入力されていて、印刷するとその通り出てきます。
症状は今朝からで、エクセルのバージョンは2016です。

55:名無しさん＠そうだ選挙にいこう
19/02/20 18:59:11.10 .net
とりあえず再起動

56:名無しさん＠そうだ選挙にいこう
19/02/20 19:00:54.55 .net
新規ブックで再現するのそれ
しなきゃブックがおかしいんじゃないの

57:名無しさん＠そうだ選挙にいこう
19/02/20 19:09:14.31 .net
>>55 してみたのですが、変わらずです、、
>>56新規ブックでは再現出来ませんでした。10年以上使っているブックで、今までこんなことはありませんでした。
一部のシート上で当問題が発生します。症状が起こるシートでは、新たに文字を入力しなおしても、ロールアップ、ロールダウンで消えてしまいます。

58:名無しさん＠そうだ選挙にいこう
19/02/20 19:23:48.40 .net
>>52
確かめてみたら新しいブックだとならないや
でもバックアップ用のファイルも同じ現象なったから、たぶん何かドライバとかでシステムが変わったのかもしれない
もう少し検証してみる

59:名無しさん＠そうだ選挙にいこう
19/02/20 19:25:09.06 .net
描写の更新的な機能がなんかバグってるっぽいんだよね
スクロールしたらなったりするから

60:名無しさん＠そうだ選挙にいこう
19/02/20 20:32:10.12 .net
>>57
なんかゴミデータがたまっている
新規ブック作ってシートを一個ずつ移動させれば解決すると思う

61:名無しさん＠そうだ選挙にいこう
19/02/20 21:31:24.87 .net
IDすらないんだから安価くらいちゃんとつけない？
誰が誰に言ってるのかわかりにくいわ
安価のつけ方は半角で>>だぞ
 >>61
みたいにするんだぞ

62:名無しさん＠そうだ選挙にいこう
19/02/20 22:19:28.40 .net
さすが！オレっ！！　　誰も褒めてくんないから自分で褒める
俺ならできる俺ならできる俺ならできる俺ならできる
そおゆう暗示を壁にぶつかったら唱える
決して人前で声に出したりはしないけど、悩んだら唱える
それ以前に何人もが挫折した案件　たらい回しで巡ってきた案件
試行錯誤したりスクラップ＆ビルド繰り返して・・・　成し遂げる
そこでつい冒頭の「さすが！オレっ！！」　が出る
やればできるじゃ～ん、おれ　えへへへへ
いやしかし、おれに出来るんなら誰にだってできる
思い上がらないよう自分を戒める　　　　　そんな日々の繰り返しさ！　ってやんでいっ
　　いや、Excelのハナシじゃ無いんですけどね

63:名無しさん＠そうだ選挙にいこう
19/02/20 23:34:04.95 .net
＞いやしかし、おれに出来るんなら誰にだってできる
だが、俺が最初にやる

64:名無しさん＠そうだ選挙にいこう
19/02/21 02:19:46.28 .net
>>51の症状はこんな感じ
正常時の表示。セルの背景がカラフルなところはちゃんと黒字になっている
URLﾘﾝｸ(i.imgur.com)
Excelをアクティブにすると白字になる
URLﾘﾝｸ(i.imgur.com)

・正常表示されてるときにスクロールすると文字が半分だけ白字になったりするから描写的なバグっぽいんだよね
URLﾘﾝｸ(i.imgur.com)
↓
URLﾘﾝｸ(i.imgur.com)

昨日から急になったんだけど、なんだこれ…

65:名無しさん＠そうだ選挙にいこう
19/02/21 09:57:38.55 .net
index関数を使って、テーブルの範囲を記述していたのですが、テーブルの数が膨大になってくるとメンテナンス性も悪いので、なにか短縮できる方法とかありますでしょうか。

66:名無しさん＠そうだ選挙にいこう
19/02/21 10:15:54.09 .net
テーブルの数っていうのが参照先の行が増えてるのか列が増えてるのか参照するシートが増えてるのかで意味が違ってくる
offsetとcountとか組合せて使えば参照範囲を可変に出来たはず
参照シートを変えたい場合はINDIRECT使って参照シート名を指定出来るようにすればメンテしやすい

67:名無しさん＠そうだ選挙にいこう
19/02/21 10:22:30.44 .net
あぁ、参照範囲の記述を短縮する方法だとしたら回答間違ってたわ
範囲の記述を短くしたいなら名前の定義で出来る

68:名無しさん＠そうだ選挙にいこう
19/02/21 10:26:27.31 .net
>>67
ありがとうございます。
テーブルに名前をつけて、それを羅列するって感じですね。
何か範囲を別持ちして、その別でもったものを指定するみたいな方式がないかと考えていましたが、そこまで便利なものはさすがになさそうですね。

69:名無しさん＠そうだ選挙にいこう
19/02/21 11:28:05.11 .net
>>68
indirect

70:名無しさん＠そうだ選挙にいこう
19/02/21 11:30:47.73 .net
>>64
再描画が止まってる気がする
イミディエイトウィンドウに以下を一行ずつ、コピーペーストしてenter
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
イミディエイトウィンドウの開き方
URLﾘﾝｸ(www.239-programing.com)
後hあアクセラレータを無効にしてみる
URLﾘﾝｸ(www.chips-shop.com)

71:名無しさん＠そうだ選挙にいこう
19/02/21 11:30:54.71 .net
>>68
何か範囲を別持ちして、その別でもったものを指定するみたいな方式
それなら最初の回答したINDIRECT使えば出来る

72:名無しさん＠そうだ選挙にいこう
19/02/21 15:24:05.82 .net
>>64
それはビデオカードのドライバのバグ
Excelは悪くない
最近アップデートしなかった？

73:名無しさん＠そうだ選挙にいこう
19/02/21 17:33:18.76 .net
計算式のセルだけ文字色を変えるにはどうやればいいですか？

74:名無しさん＠そうだ選挙にいこう
19/02/21 17:57:56.13 .net
>>73
ISFORMULA 関数

75:名無しさん＠そうだ選挙にいこう
19/02/22 00:08:48.10 .net
【1 OSの種類　　　　 .】 Windows 7
【2 Excelのバージョン　】 Excel 13
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
複数のシートを統合シートに転記してますが
数式や罫線をコピーせずに値のみ移したいです
色々試したがうまくいかなっかた
どうしたらいいですか？
おねがいします
下記コードを使っています
Sub 統合へ()
Application.ScreenUpdating = False
Dim 全シート As Worksheet
Worksheets("統合").Rows("2:" & Rows.Count).Clear
For Each 全シート In Worksheets
With 全シート
If .Name <> "統合" Then
.Range(.Cells(2, 1), .Cells(Rows.Count, 1) _
.End(xlUp).Offset(, 6)).Copy _
Worksheets("統合") _
.Cells(Rows.Count, 1).End(xlUp).Offset(1)
End If
End With
Next
End Sub

76:名無しさん＠そうだ選挙にいこう
19/02/22 00:19:32.35 .net
>>75
コードは見てないけど、2通り
値貼り付けをマクロの記録すればすぐに分かると思う
また、
range=range
という書き方もあるけど範囲合わせるのがちょっとめんどくさいんだよね
お好きな方で
Sub foo()
'値でコピーペースト。貼り付け先は左上セルの指定だけで良いので楽
Range("D3:D4").Copy
Range("C1").PasteSpecial Paste:=xlPasteValues
'超軽いが範囲を合わせる必要がある
Range("c1:c2").Value = Range("d3:d4").Value
End Sub

77:名無しさん＠そうだ選挙にいこう
19/02/22 00:20:47.59 .net
使ったシートはこんな感じ
URLﾘﾝｸ(i.imgur.com)

78:名無しさん＠そうだ選挙にいこう
19/02/22 19:51:42.32 .net
【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
vbaで作成したエクセルマクロをアドインファイル(xlam)に変換後、このxlamファイルを保護したいと考えています。
ただし、パスワードの保護ではなく、VBのプロジェクトウィンドウに表示されるxlamファイルを展開しようとしても、
「プロジェクトを表示できません。」と表示されるようにしたいです。
どうやっても解除できないガチガチな保護は必要ありませんが、「プロジェクトを表示できません。」と出て
vbを表示できなくする程度には保護したいと考えています。
このような保護は、どのようにすればできるのか教えてください。

79:78
19/02/22 20:39:56.23 .net
イメージとしては、以下のサイトの「←これ?」が指すものです。
URLﾘﾝｸ(okwave.jp)

80:名無しさん＠そうだ選挙にいこう
19/02/23 10:58:34.84 .net
Row関数でA列にあるデータの個数+1番目の列番号を出したいです。
とりあえずB1セルに=COUNTIF(A1:A10,">0")+1と入れて、=Row(A&"B1")のような形にしたのですが、数式に問題が見つかりました。と出てしまいます。
どうすればいいでしょうか。

81:名無しさん＠そうだ選挙にいこう
19/02/23 11:35:14.62 .net
>>78
それが最適なパスワード保護の使い方だと思う
なんで避けるのか良く分からん
 >>80
＞データの個数+1番目の列番号
良く分からん。列番号は1にきまっている
データ個数+1ならこれ
=COUNTIF(A:A,"<>")+1
最大の行番号+!ならこれ
=MAX(INDEX((LEN(A:A)>0)*ROW(A:A),0))+1

82:名無しさん＠そうだ選挙にいこう
19/02/23 21:25:48.90 .net
【1 OSの種類　　　　 .】 Windows 7
【2 Excelのバージョン　】 Excel 2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
CD収録の音楽リストをまとめています。曲名・アーティスト名など25列ほどあります。
旧バージョン時代から入力してきた経緯もあり97-2003の .xls で保存してきましたが、
曲数が増えたので .xlsx に「値のみ」で移したところ、データ量が半分になりました。
見た目は新形式に移行したようですが、データ量が半分に減って正常なのでしょうか？
31MB→14MB、計算式は無く全てテキストデータ、書式はフォントを色々変えている。

83:名無しさん＠そうだ選挙にいこう
19/02/23 21:27:03.60 .net
>>82
正常です
xlsはデータサイズが大きい

84:75
19/02/23 21:39:17.54 .net
>>76 ありがとうございます。
しかし使ってるコードも本やネットで拾ったもので
どこをどう直したらいいか分かりません。
あれこれ試行錯誤してますがエラーになります。
マクロに手を出したのも数ヶ月の初心者です。
何とかその辺を汲んで教えていただけませんか？
お願いします。

85:名無しさん＠そうだ選挙にいこう
19/02/23 22:05:59.16 .net
>>84
わかりませんじゃなくて、もうちょっと位頑張った方が良いぞ
vbaは万能だからな
あとwith嫌いだから勝手に消したぞ
Sub 統合へ()
'高速化
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set 統合シート = Worksheets("統合")
'最終行まで削除
統合シート最終行 = 統合シート.Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("統合").Rows("2:" & 統合シート最終行).Clear
'メインルーチン
For Each コピー元シート In Worksheets
If コピー元シート.Name <> "統合" Then
'コピー
コピー元シート最終行 = コピー元シート.Cells(Rows.Count, 1).End(xlUp).Row
コピー元シート.Range(コピー元シート.Cells(2, 1), コピー元シート.Cells(コピー元シート最終行, 6)).Copy
'貼付
統合シート最終行 = 統合シート.Cells(Rows.Count, 1).End(xlUp).Row
統合シート.Cells(統合シート最終行 + 1, 1).PasteSpecial Paste:=xlPasteValues
End If
Next
'高速化解除
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
'完了
MsgBox ("終わり")
End Sub

86:名無しさん＠そうだ選挙にいこう
19/02/24 02:34:21.40 .net
教えてください。
VBAの命令の、Application.screenupdating = false って、
なんらかの処理が一段落ついたところで解除されると考えていいのでしょうか？
どこかで= True と書いておかないと、画面上はずっとうんともすんとも言わないってことは
ないようなんです。
Do とか　While文では、ちゃんとループから出る条件を書かないと無限ループになってしまう
ことがありますが、screenupdatingは、そんなことないようなんです。
=trueは書かなくてもいいんじゃないか、と思うくらいです。
どうなんでしょうか？updating=falseが解除される条件ってのがあるんでしょうか？

87:名無しさん＠そうだ選挙にいこう
19/02/24 02:48:21.17 .net
>>86
画面描画が100%停止されるわけではなく、
恐らく負荷がかかっていないようなタイミングで画面の更新は行われる
＞=trueは書かなくてもいいんじゃないか、と思うくらいです。
別に外すのは勝手だけどどうなっても知らんよ
自己責任でどうぞ
＞どうなんでしょうか？updating=falseが解除される条件ってのがあるんでしょうか？
知らない
ウォッチ式にでも入れておいて確認すればいいんじゃないかな
めんどいから俺はしない
URLﾘﾝｸ(docs.microsoft.com)

88:75
19/02/24 06:14:22.60 .net
>>85
目が覚めたら神様から返事がありました
感謝します
もちろんこれから頑張っていきますが
そのヤル気を大きく加速させる
スイングバイのようなレスです
ありがとうございました。

89:名無しさん＠そうだ選挙にいこう
19/02/24 08:56:33.49 .net
>>83
ありがとうございます

90:名無しさん＠そうだ選挙にいこう
19/02/24 18:10:11.42 .net
ハイパーリンク関数について教えてください。
Sheet1のA1セルが8ならSheet2のA8セルにジャンプ、
Sheet1のA1セルが50ならSheet2のA50セルにジャンプするようなやり方を教えてください。

91:名無しさん＠そうだ選挙にいこう
19/02/24 19:01:59.72 .net
A8かA50から永遠に抜け出せなくなるけどいいのかな

92:名無しさん＠そうだ選挙にいこう
19/02/24 19:05:21.27 .net
>>91
できれば抜け出せるのでお願いします。

93:名無しさん＠そうだ選挙にいこう
19/02/24 19:29:33.70 .net
>>90
=HYPERLINK("#sheet2!A"&A1)

94:名無しさん＠そうだ選挙にいこう
19/02/24 20:01:03.70 .net
>>93
ありがとうございます。お陰様でできました。

95:名無しさん＠そうだ選挙にいこう
19/02/24 21:41:13.23 .net
【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2019
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
エクセルでjsってどうやれば使えるようになるでしょうか
参照設定でしょうか

96:名無しさん＠そうだ選挙にいこう
19/02/25 23:20:08.96 .net
VBAって奥深いね

97:名無しさん＠そうだ選挙にいこう
19/02/26 14:09:04.90 .net
【1 OSの種類　　　　 .】 Windows 7
【2 Excelのバージョン　】 Excel 2013
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
.xls で作っていたファイルを .xlsx にしたところ、何の変更操作もしないでも
ファイルを閉じようとすると保存確認のメッセージが出るようになりました。
どうしたらメッセージを消せますか。マクロなどは使っていません。

98:名無しさん＠そうだ選挙にいこう
19/02/26 14:17:13.48 .net
>>97
揮発性関数か、外部リンクかindirect辺り使ってない？
URLﾘﾝｸ(www.civil-design.net)
使ってないならバグがあるような気がするので、
新しいxlsxブックを作って、xlsファイルからシートを一つずつ移動させてみるって方法がある

99:名無しさん＠そうだ選挙にいこう
19/02/26 16:37:06.51 .net
例なのでちょっと違うんですが、例えば
3年B組テスト結果
A君　　　　　　　　B君
　17年18年19年
国
数
理　
というシートがあり、18年の全員の国語の点数を足したい。けど赤点だった人は抜くという場合
=if(A君=赤点,0,国18年)+if(B君=赤点,0,国18年)+・・・
とif計算でやるしかないのでしょうか。
ちなみにA君、B君、C君・・・は実際は横ではなく縦に並んでいます。
=(c4+g4+k4+・・・）ではなく
=(c4+c14+c24・・・）という感じになります。

100:名無しさん＠そうだ選挙にいこう
19/02/26 17:29:38.37 .net
>>99
c列と言われても・・・？としか
要は
・ピボットテーブル
・作業列
・配列数式
のどれかだと思う

101:９７
19/02/26 17:58:13.90 .net
>>98
シートごとに.xlsxに移行して追い詰めていったら、
マイナス符号で始まる文字列が #NAME エラーになっていました。
解決しました。ありがとうございました。

102:名無しさん＠そうだ選挙にいこう
19/02/26 18:18:04.86 .net
>>99
sumifs

103:名無しさん＠そうだ選挙にいこう
19/02/26 18:35:56.85 .net
【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2013
EXCELの共有ブック機能について質問です
共有ブックは複数ユーザが同時に編集し、変更保存時に自分の変更したセルが
編集中に他ユーザによって変更されていた場合には、どちらの変更を反映するか
選択できるということは理解できたのですが、
自分の変更したセルを参照しているセルについてはどういう振る舞いになるのでしょう？
たとえば、共有ブックFoo.xlmsの自動計算Sheet1で、A1セルとB1セルに1が入っており、
C1=A1*B1だった時、このブックを太郎と花子が同時に編集したとします
太郎はA1の値を1から2に変更しB1は触っていません。C1は自動計算で2となっています。
花子はB1の値を1から3に変更しA1は触っていません。C1は自動計算で3となっています。
先に太郎が変更を保存した後、花子がブックを保存しようとした時、C1については
変更反映選択のダイアログは出るのでしょうか？
選択できないとしたら、C1は6になって保存されるのでしょうか？
誰の変更を反映するか選択できるとしたら、
　太郎の変更(A1=2、B1=1(変更無し)、C1=2)
　花子の変更(A1=1(変更なし)、B1=3、C1=3)
だけでなく
　太郎＆花子の変更(A1=2、B1=3、C1=6)
を選ぶことはできるのでしょうか？

104:名無しさん＠そうだ選挙にいこう
19/02/26 18:48:07.95 .net
>>99
=SUMIFS(C2:C200,A1:A200,"国",C2:C200,">=30")
30点未満が赤点で2行目から200行目までデータがある場合

105:名無しさん＠そうだ選挙にいこう
19/02/26 18:49:24.56 .net
A1→A2の間違い

106:名無しさん＠そうだ選挙にいこう
19/02/26 19:14:13.34 .net
>>99
sumproductでいける気がするけど
後で作ってみるか

107:名無しさん＠そうだ選挙にいこう
19/02/26 21:18:25.92 .net
合計処理してるセルを選択すると、合計元のセルに色がつくとかできますか？

108:名無しさん＠そうだ選挙にいこう
19/02/26 21:52:57.43 .net
>>107
出来ますよ

109:名無しさん＠そうだ選挙にいこう
19/02/26 22:35:50.28 .net
vbaじゃなくて初歩的なグラフの作り方で困っているのですが、質問したらスレチでしょうか？
探しても見つからなくてそういうスレがあるなら誘導していただけると幸いです...

110:名無しさん＠そうだ選挙にいこう
19/02/26 22:52:57.52 .net
>>108
VBAですか？

111:名無しさん＠そうだ選挙にいこう
19/02/26 23:28:54.77 .net
>>110
はい。VBAです。

112:名無しさん＠そうだ選挙にいこう
19/02/27 00:26:02.89 .net
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
一枚目みたいにつくりたいのですが、どうしても二枚目みたいになってしまいます。
どなたかご教示いただけないでしょうか？

113:名無しさん＠そうだ選挙にいこう
19/02/27 00:32:18.02 .net
>>111
やりかたおしえて

114:名無しさん＠そうだ選挙にいこう
19/02/27 03:17:26.18 .net
>>103
環境がないから回答できないんだけど、
自分でやった方が早い気がする
 >>107
　数式→参照元のトレース
 >>112
データラベル
URLﾘﾝｸ(i.imgur.com)

115:名無しさん＠そうだ選挙にいこう
19/02/27 05:13:21.04 .net
>>112
グラフの種類が違う
100%積み上げグラフと積み上げグラフ

116:名無しさん＠そうだ選挙にいこう
19/02/27 05:49:44.07 .net
>>112
合計の%をデータラベルで表示したいということか？
100%積み上げ縦棒グラフでなくて、ただの積み上げ縦棒グラフで作る。
・百分率の系列に「合計」も作っておく。
・グラフ上の合計の系列は「塗りつぶしなし」
・追加したデータラベルは、合計の系列だけラベルの位置で「内側軸寄り」
・縦軸の最大値が自動だと倍のレンジになるので、手動調整

117:名無しさん＠そうだ選挙にいこう
19/02/27 06:42:53.90 .net
【1 OSの種類　　　　】 Windows7
【2 Excelのバージョン】 Excel2016
【3 VBAが使えるか　】否のようなそうでもないような
【4 VBAでの回答の可否】できれば回避したい
日ごとにシートを作っている集計シートで、全シートの同じセルを参照して合計を出しているセルがあります
シートに行を足したり列を足したりした場合、そのシートにかかわるところだけが自動的にシフトするのですが他のシートを参照している部分は変わらないのです（当然ですが）
これを自動的にずらす、方法はないでしょうか？そもそも全シートを参照するのにずらっと全シートの参照式を並べて足している状態です
vbaならシート名を変数にしてしまって全シート集計容易なのはわかってます
が、使う側が「マクロ？なにそれおいしいの？なんでボタン押す手間いるの？」なので…

118:名無しさん＠そうだ選挙にいこう
19/02/27 06:51:41.71 .net
>>117
串刺し集計なら無理っぽいな

119:名無しさん＠そうだ選挙にいこう
19/02/27 07:11:25.56 .net
>>118
vbaにした方が早いんかな…
前回列足されてずれてて集計ミスが発生したもので
そう列は足す事はないとは思いますが…
vbaなら見出しを参照してその行を自動的に拾い出すぐらいで組めそうなんですが
関数でそれを実装するとセルにどれだけの関数を押し込めなきゃならんかと思うとちょっと
fornextって関数にないですよね？
vbaにしたらしたでさかのぼって７日間のみのデータを随時集計して色々役立てる事はできるので導入はしたいのですが、
なにぶんにも運用する上司がまるっきり知識ないので

120:名無しさん＠そうだ選挙にいこう
19/02/27 07:13:43.59 .net
日付をキーにindexmatchとかvlookupして足すのは？

121:名無しさん＠そうだ選挙にいこう
19/02/27 07:15:32.80 .net
あ、勘違いしてました

122:名無しさん＠そうだ選挙にいこう
19/02/27 07:24:09.81 .net
各シートの集計欄に名前をつける

123:名無しさん＠そうだ選挙にいこう
19/02/27 09:13:23.32 .net
>>117
各シートで参照する合計セルが1つなら、
A1固定にしてしまえば、少しは楽？
合計行か合計列のどちらかなら、
1行目かA列に寄せてしまうとか。
で、
FIND、ADDRESS、MATCH、INDIRECT
を組み合わせて、縦横セル番地を特定するとか。
ただし、日別のシート名指定は
手動になるかも知れない。

124:名無しさん＠そうだ選挙にいこう
19/02/27 12:09:00.61 .net
みなさんありがとうございます
 >>122がいけそうですね
それか集計シートを別に用意してそこで集計させるか（そうしたら自動でずれるかな？）

125:名無しさん＠そうだ選挙にいこう
19/02/27 21:12:25.74 .net
【1 OSの種類　　　　 .】 Windows 7
【2 Excelのバージョン　】 Excel 2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
数値の表示形式で数値の桁数より少ない下の桁だけ表示する方法はありますか？
例えば数値が 12345678 のとき 345678 だけ表示。
または日付の表示形式で日や月日が不明の時に00と表示する方法。
例えば2019年？月？日は 190000、2019年2月？日は 190200 と。
ただし数値として並べ替えが可能なもの。

126:名無しさん＠そうだ選挙にいこう
19/02/27 21:18:51.10 .net
>>125
Excel のセルの表示形式で [ユーザー定義] に使用できる書式記号について
URLﾘﾝｸ(support.microsoft.com)
＞例えば数値が 12345678 のとき 345678 だけ表示。
無い
＞不明の時に00と表示する方法。
がどう入力されているかが分からない
＞例えば2019年？月？日は 190000、2019年2月？日は 190200 と。
＞ただし数値として並べ替えが可能なもの。
両立は無理

127:名無しさん＠そうだ選挙にいこう
19/02/27 21:56:56.83 .net
>>125
そんな変態的な機能はあるはずない

128:名無しさん＠そうだ選挙にいこう
19/02/27 22:15:07.34 .net
上のはright関数で固定桁なら表示できるんじゃね

129:名無しさん＠そうだ選挙にいこう
19/02/27 23:00:25.43 .net
>>125
どのセルに何の数値が入っているのか具体的に言ってくれれば回答しやすいな

次ページ