Excel VBA 質問スレ Part54

**デフォルトの名無しさん** · 2018/05/26(土) 20:37:37.74

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

最近プロによる書き込みが多々見うけられますが
彼らに絡むと話がこじれるので質問したい方は適当にスルーしてください

※前スレ
Excel VBA 質問スレ Part53
http://mevius.5ch.net/test/read.cgi/tech/1524823358/

**デフォルトの名無しさん** · 2018/06/03(日) 23:50:05.19

countaで最大値を取って-1した行を取れば良いんじゃないか？

**デフォルトの名無しさん** · 2018/06/03(日) 23:54:48.25

>>127さんお返事ありがとうございます。
ただ、それだと5行目がない場合に3行目が返されてしまいますよね。今日の値があるなしに関わらず昨日以前の値がほしいのです。

**デフォルトの名無しさん** · 2018/06/04(月) 00:08:16.94

>>128
行数を取得したいのか、それとも値（シリアル値）を取得したいのか。
日付データは当然、昇順ですよね？

**デフォルトの名無しさん** · 2018/06/04(月) 01:09:49.39

グラフの判例項目を足したり削除したりしたいのだがムズイ
マクロの記録で録ったのを流用してもうまくいかない時があって難儀してるわ

**デフォルトの名無しさん** · 2018/06/04(月) 01:25:33.02

>>126
これは普通にmatchでいけるよね。
バイナリサーチモードで。

**デフォルトの名無しさん** · 2018/06/04(月) 01:48:09.18

>>129
何行目にあるのかを知りたいのです。
昇順です。

**デフォルトの名無しさん** · 2018/06/04(月) 03:29:47.34

>>132
r = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(r, 1) = DateValue(Date) Then r = r - 1

**デフォルトの名無しさん** · 2018/06/04(月) 08:28:12.92

>>133
ニホンゴムズカシイネ^^
VBAよりまず読解力

**デフォルトの名無しさん** · 2018/06/04(月) 08:41:42.44

もうすぐ廃止されるかもしれんVBAを本気で覚えようとするモチベが湧かないわ

**デフォルトの名無しさん** · 2018/06/04(月) 08:49:17.91

元々本気でやるようなもんじゃないし

**デフォルトの名無しさん** · 2018/06/04(月) 09:31:05.61

本当ならめでたいことだが
VBA廃止ってどこ情報だよ

**デフォルトの名無しさん** · 2018/06/04(月) 09:38:25.44

C#になるんだろ？

**デフォルトの名無しさん** · 2018/06/04(月) 09:40:53.06

Pythonがどーたらって噂のことだろ？

**デフォルトの名無しさん** · 2018/06/04(月) 09:58:55.52

python使いたいならLibreOffice使えば？

**デフォルトの名無しさん** · 2018/06/04(月) 11:44:27.43

>>140
お前が顧客提案資料作れや

**デフォルトの名無しさん** · 2018/06/04(月) 12:59:52.11

>>132

dim i as integer
i=1
do
i=i+1
loop while cells(i,1) < date
msgbox i-1

エラー処理とからは無しだけど。

**デフォルトの名無しさん** · 2018/06/04(月) 13:05:50.36

最終的にPDFにして送るんだからExcelにこだわる意味って…

**デフォルトの名無しさん** · 2018/06/04(月) 16:51:56.13

年賀状やチラシ作りに便利だから。

**デフォルトの名無しさん** · 2018/06/04(月) 16:53:08.76

昔の職人さんが包丁一本で生きていけたように、今はExcel一本あれば世界中どこでも生きていけるからな。

**デフォルトの名無しさん** · 2018/06/04(月) 22:01:00.33

>>145
1行目に入ってる項目名がスワヒリ語だったとしても？

**デフォルトの名無しさん** · 2018/06/05(火) 00:37:41.87

オブジェクト指向追加すればそれでいいよ

**デフォルトの名無しさん** · 2018/06/05(火) 08:34:48.88

フォルダ内にあるファイルがそれぞれどんな中身なのか、一つづつプレビューか開くかしないと判らず死にそう

1つずつ開いてスクリーンショット取らせるようにマクロ組んでみたけど、タイミング、ウインドウ表示の問題で上手く回収出来ないみたい

**デフォルトの名無しさん** · 2018/06/05(火) 08:58:15.69

何でもかんでも1つのブックに詰め込むからそれが何のためのブックなのか曖昧になる
そうなると適切なブック名を付けられなくなって中身が分からなくなるしエクスプローラーで見たときの検索性も低くなる

そしてエクセル使いはファイル数が少ない方が良いと言ってシートを増やしまくる傾向がある
チームでエクセルを使うならこのストレスには耐えるしかない
民主主義では数が多い方が正義だからね

**デフォルトの名無しさん** · 2018/06/05(火) 09:44:50.81

エクセルは、データとスクリプトを分離しろ。

**デフォルトの名無しさん** · 2018/06/05(火) 09:48:35.29

今でもデータを別ファイルでもDBにしてもアクセス出来るじゃん

**デフォルトの名無しさん** · 2018/06/05(火) 10:06:06.95

出来る。のと、そうなっている。の違いは大きいよな。

**デフォルトの名無しさん** · 2018/06/05(火) 10:43:20.56

だからそうすればいいじゃんって事

**デフォルトの名無しさん** · 2018/06/05(火) 12:46:41.22

馬鹿が使えは何でも無茶苦茶になる

**デフォルトの名無しさん** · 2018/06/05(火) 13:41:23.77

どこで聞いたら良いのかわからないのでここで…
4Kモニタ買ってDPIいじったらExcelのオートシェイプが歪んで印刷されるようになりました
この歪み具合というか補正係数みたいなのを導き出す方法ってありますか？

**デフォルトの名無しさん** · 2018/06/05(火) 16:11:31.88

縦にズラーっと1000以上データが入ってて
5回以上同じ値が連続するセルを色づけするvbaを作って貰えませんか？
入力ごとに自動実行してくれるとなおありがたいです

**デフォルトの名無しさん** · 2018/06/05(火) 16:50:03.63

>>156
死ねよ

**デフォルトの名無しさん** · 2018/06/05(火) 17:47:42.14

>>156
失せな

**デフォルトの名無しさん** · 2018/06/05(火) 17:57:49.85

～～が出来ずに困っています、何かヒントをいただけたら有り難いのですが

と言ったら別に頭にこないだろ。作ってもらえませんかと言われただけで死ねとか失せろと言うのは、
表現だけに拘った愚かな対応だな。

**156** · 2018/06/05(火) 18:54:06.81

すいません端折りすぎました
ほとんど自力で作成はできてるのですが、
判定させるほぼ全てのセルに計算式が入っていて、見かけ上は空白セルでも計算式の入ってる所は全て同じ値判定になって困っているのと
自動実行のやり方が分からないといった感じです

**デフォルトの名無しさん** · 2018/06/05(火) 18:58:20.64

>>160
ランサーズとかに発注したら

**156** · 2018/06/05(火) 19:01:53.33

質問の仕方を間違えたみたいで申し訳ありません
自分のレスは忘れてください
スレ汚し済みませんでした

**デフォルトの名無しさん** · 2018/06/05(火) 20:09:13.45

>>156
http://www9.plala.or.jp/siouxsie/excel/date06.html

**デフォルトの名無しさん** · 2018/06/05(火) 20:14:15.59

>>163
これはネタなのか？文字化けなのか？

**デフォルトの名無しさん** · 2018/06/05(火) 21:08:08.34

すげぇ　片手に余るレスでお客さん追い返してやんの
桜井佐那（戸田恵梨香）が来る前の崖っぷちホテルか
>>158 がくっきー(野生爆弾)の顔で睨んだとイメージ

**デフォルトの名無しさん** · 2018/06/05(火) 21:50:13.58

>>156
作りかけのファイルアップしてくれたら何とかできるかも。

イベントの条件など、その人にしか分からないことが多いから自分でコード書くのが一番いいんだけど。例えばA列限定なのか、A列からJ列なのか、全ての列なのかでコードは変わってくるでしょう？
データも、縦方向に連続しているのか空白があるのか、空白が5行続いた場合どうするのか、空白と0を区別するのか、などなど。

あと、ここよりエクセル総合質問スレの方が親切な気がする。

**デフォルトの名無しさん** · 2018/06/05(火) 22:13:04.46

つーかそんだけ条件はっきりしてんならちょっと考えたらわかるやろ。しかもほとんど自力でって言ってんだし

**デフォルトの名無しさん** · 2018/06/06(水) 01:08:15.90

>>160
見かけ上は空白セルということは実際の値は何でしょうか、例えば文字列""であるとか。
自動実行は>>163のURLが分かりやすいですが、もし文字化けしているのならばWorkSheet changeで調べると良いかと思います。

**デフォルトの名無しさん** · 2018/06/06(水) 04:28:37.07

>>164の意味がわからない
うちでは>>163のリンク先は普通に見えてるけど、文字化けして読めない環境の人もいるってこと？

**デフォルトの名無しさん** · 2018/06/06(水) 08:35:29.70

質問
再利用性高いプログラム書いたとしてそれをどこに保存してどう活用するの。
例えば〇〇出来るマクロ作れ！言われてファイル開く部分は前作ったsubプロシージャで良いなと思っても今は前のソースからコピペしてる
クソなことしてる自覚はあるけどどうすればクソ脱却するか分からん

**デフォルトの名無しさん** · 2018/06/06(水) 08:41:20.51

>>169
MIMEの文字コード種別の記述と実際の文字コードが違うとかあると、ブラウザによっては文字化けするよ。

**デフォルトの名無しさん** · 2018/06/06(水) 09:47:21.88

>>169
lPhoneのJanestyle アプリで開いたから文字化けしてた
流れ的に高度なネタなのか判断が出来なかったので

**デフォルトの名無しさん** · 2018/06/06(水) 10:32:45.85

>160
計算式が入っているってどういうことだろう

**デフォルトの名無しさん** · 2018/06/06(水) 10:47:00.30

>>170
Runで呼び出すのはどうでしょう

**デフォルトの名無しさん** · 2018/06/06(水) 11:44:10.21

>>169
原因は>>171なんだろうけど大抵のブラウザはMIME無視して文字コードを指定して表示する方法がある
そんなことも知らないで>>164みたいなレスする奴のレベルは知れてるから相手しなくていいよ

**デフォルトの名無しさん** · 2018/06/06(水) 12:12:22.29

>>170
C#かVB.NETでCOM dllを作ってシステムに登録
ブックから参照の追加で↑を再利用
かな
addinでもいいんだろうけど使いにくかったので俺はaddinの利用をやめた

**デフォルトの名無しさん** · 2018/06/06(水) 13:14:46.89

>>176
addinてなんだっけ？
自分はexamの運用で特に不自由感じてないけど、使い方によってデメリットあるのかな

**デフォルトの名無しさん** · 2018/06/06(水) 14:59:12.02

クッソ、さっきから頭の中で小さな男女が楽しそうにマイムマイム踊ってやがる。

**デフォルトの名無しさん** · 2018/06/06(水) 17:28:57.66

俺なんて引き出し開けたら大名行列がいたぞ

**デフォルトの名無しさん** · 2018/06/06(水) 17:56:03.28

トイレの中に魔法使いがいる

**デフォルトの名無しさん** · 2018/06/06(水) 20:52:40.89

机からメス猫形ロボットが出てきた

**デフォルトの名無しさん** · 2018/06/07(木) 00:52:14.51

シートをコピーして名前を付けるときにすでにそのシート名が存在し、重複した場合、メッセージとして、"既にその名前のシートは存在しているのでコピーしません。"
とメッセージボックスに表示し、シートをコピーしないようにしたいのですがどのようにすればよいのでしょうか。
現状は、重複する場合、コピーの元となったシートに(2)などデフォルトで付いてしまってこまっています。
どなたか教えていただけると幸いです。

**デフォルトの名無しさん** · 2018/06/07(木) 01:04:11.81

>>182
事前に名前を取得すればいいだろ
馬鹿なの？

**デフォルトの名無しさん** · 2018/06/07(木) 01:32:35.30

>>182
Private Sub hoge()
Dim title As String
Dim pro As String
Dim default As String
Dim rtn As String

On Error GoTo Errhd

ThisWorkbook.Worksheets(1).Copy after:=ThisWorkbook.Worksheets(1)
title = "シート名の入力"
pro = "追加したシート名の名前を入力して下さい"
pro = pro & vbCrLf & "キャンセルすると規定のシート名です"
default = "ここに入力してね"
rtn = InputBox(pro, title, default)
If Len(Trim(rtn)) <> 0 Then
ActiveSheet.Name = rtn 'ActiveSheetは使いたくないなー
End If
Exit Sub

Errhd:
If Err.Number = 1004 Then
MsgBox "シート名が重複してます。規定のシート名にします"
Else
MsgBox "エラー：" & Err.Description & "エラーNo：[" & CStr(Err.Number) & "]"
End If
End Sub

**デフォルトの名無しさん** · 2018/06/07(木) 06:57:02.78

>>184
VBAの前に日本語を勉強しようか

**デフォルトの名無しさん** · 2018/06/07(木) 08:28:08.10

>>185
流石プロ
いう事が違う

**デフォルトの名無しさん** · 2018/06/07(木) 08:33:39.02

>>185
そだねー

**デフォルトの名無しさん** · 2018/06/07(木) 12:07:36.63

>>184
文法がすげぇ

**デフォルトの名無しさん** · 2018/06/07(木) 18:44:38.31

プロさんはソースコードレビューでコメントの日本語の指摘ばかりうけるので
ここで日本語の指摘して憂さ晴らししとるんやで
察してさしあげろ

**デフォルトの名無しさん** · 2018/06/07(木) 21:10:45.98

カーネルナンチャラのいみがわからん

**デフォルトの名無しさん** · 2018/06/07(木) 21:14:30.25

>>189
いやそもそも>>182の要件を一切満たしてないし

読解力はどこへ行ったのか

**デフォルトの名無しさん** · 2018/06/07(木) 21:42:02.76

>>182
勝手に(2)になるってことは、シートのコピー自体をマクロでやってるってことかな？
1枚だけならともかく、複数シートのコピーとか考慮するとかなり難しいと思う。
1枚でも同じ名前があればコピー中止するのか、(2)になるのだけを中止するのか。
現在のコード見てみないとなんとも言えないを

**デフォルトの名無しさん** · 2018/06/07(木) 21:47:48.41

foreachでシート名取得すればどうとでも出来ねーか？

**デフォルトの名無しさん** · 2018/06/07(木) 21:50:54.59

ForEachでWorksheetsコレクション回してコピー元のシート名と一致するか見れば済む話だろ
答える側のレベルも低すぎ

**デフォルトの名無しさん** · 2018/06/07(木) 22:29:02.37

For Each 回したりするくらいならこうだろ

Dim wks as Worksheet
On Error Resume Next
Set wks = Worksheets(sheetname)
On Error GoTo 0
If Not wks Is Nothing Then …(重複時の処理)…

**デフォルトの名無しさん** · 2018/06/07(木) 22:31:47.53

182です。
みなさんありがとうございます。
今の状況はこんなコードです。

Dim i As Long
i = Worksheets("マスタ").Range("B3").Value

Worksheets("鑑").Copy After:=Worksheets(Worksheets.Count)

Worksheets(Worksheets.Count).Name = i

というコードです。

**デフォルトの名無しさん** · 2018/06/07(木) 22:52:24.42

こんな表を書きたいのですが、どのようにコードを書けばいいのでしょうか？
http://iup.2ch-library.com/i/i1912882-1528379316.png

**192** · 2018/06/07(木) 22:53:31.56

>>196

これならcopyの前に、その名前のシートがあるか判定してアラート出せばいいでしょ。

Sub test()

Dim myShName As String
Dim myWS As Worksheet
Dim myFlag As Boolean

myShName = Worksheets("マスタ").Range("B3").Value

For Each myWS In Worksheets
If myWS.Name = myShName Then
myFlag = True
End If

Next myWS

If myFlag = True Then
MsgBox "すでにあるためコピーしません", vbInformation
Else
Worksheets("鑑").Copy after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = myShName
End If

End Sub

**デフォルトの名無しさん** · 2018/06/07(木) 22:53:51.61

ごめんなさい。197はスレを間違えました。失礼しました。

**192** · 2018/06/07(木) 22:59:58.47

>197

ふつうにマクロの記録でできると思います。
が、それをマクロでやる意味があるのかどうかは分かりません。
手作業でなくマクロを使いたいのはなぜ？

**デフォルトの名無しさん** · 2018/06/07(木) 23:28:43.72

ID:l2af3llu
馬鹿過ぎ

**デフォルトの名無しさん** · 2018/06/07(木) 23:43:46.34

excelはめんどくせえなぁ

**デフォルトの名無しさん** · 2018/06/08(金) 00:04:23.94

>>202
優しくしてねハート

**デフォルトの名無しさん** · 2018/06/08(金) 01:15:25.48

>>196
flgを立てないパターン。
Dim sheet_name As String
Dim ws As Worksheet
sheet_name = Worksheets("Sheet1").Range("B3").Value
For Each ws In Worksheets
If ws.Name = sheet_name Then
MsgBox "alert", vbInformation
Exit For
Else
If ws.Name = Worksheets(Worksheets.count).Name Then
Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.count)
Worksheets(Worksheets.count).Name = sheet_name
End If
End If
Next

**デフォルトの名無しさん** · 2018/06/08(金) 01:45:24.10

ファイルの上書き保存を禁止するマクロって組めるの？
それともファイルを開いたら自動的に複製が作られるようなのを組んだ方が楽かな
チームで1つのファイルを使ってて加筆することはあっても消す事は出来ないようにしたい

**192** · 2018/06/08(金) 02:24:44.07

>>205
before save イベントで、ある程度はできそうだけど、「上書き保存できないように」「加筆することはあっても消すことはできない」あたりが、ちょっと何をしたいのかよく分からないですね。

**デフォルトの名無しさん** · 2018/06/08(金) 03:51:17.27

>>205
svn導入したら？

**デフォルトの名無しさん** · 2018/06/08(金) 05:17:01.97

悪いこと言わないからWebアプリを覚えた方が良いって
共有も簡単
同時入力も出来る
端末も場所も選ばない
覚えるのはSQL C# html css JavaScript
たったこんだけで飛躍的に変わるんだから

**デフォルトの名無しさん** · 2018/06/08(金) 06:50:16.72

>>205
操作ミスを防ぎたいだけなら「読み取り専用を推奨する」を設定しておくのじゃダメかな
http://www.moug.net/tech/exopr/0060021.html

**デフォルトの名無しさん** · 2018/06/08(金) 12:13:41.25

>>205
エクセル上の上書き保存を禁止するだけなら、プロパティで読み取り専用にする方法と、Open時にパスとRead Onlyフラグを見て判定する方法と、before saved時にcancelする方法が考えられる。application.UserNameと組み合わせて自分以外は保存出来ないようにするとかね。

**デフォルトの名無しさん** · 2018/06/08(金) 14:09:42.72

びふぉーせーぶきゃんせるしたらマクロほぞんできなくねて思って調べたらマクロ実行中にcancel　trueにするとか書いてて目から鱗
使わんけど

**デフォルトの名無しさん** · 2018/06/10(日) 06:38:13.95

>>205
>>207の言う通りファイルを複数人で共有して管理するなら
SVNとかTFSとかGITとかの導入を考えた方がいいかも
それなら間違って書いて上書きしてしまっても誰がいつ書き換えたかも分かるしすぐに直せる
もちろん何かしらでファイルが消されてしまってもすぐに復活出来る。

個人や会社の研修に使う程度の小規模のものなら
これをONE DRIVE、GOOGLE DRIVE、DROP BOX等と併用して使えば
インターネットに繋がる端末であればどこからでも
参照することが出来るようになる。
ただしセキュリティ面に関しては自己責任で。

**デフォルトの名無しさん** · 2018/06/10(日) 11:36:18.83

と、無職が書いてます

**デフォルトの名無しさん** · 2018/06/10(日) 11:43:27.28

ビジネスマンは認証なしファイルサーバーでエクセル共有が常識
徹底的に無駄をそぎ落とせ

**デフォルトの名無しさん** · 2018/06/10(日) 12:53:16.88

>>214
共有ってもエクセルって同時に開けないでしょ？

**デフォルトの名無しさん** · 2018/06/10(日) 13:05:50.36

>>215
エクセルを共有し、複数人で同時に書き込むの面白いよ

会議とかでエクセルで議事録を書き、それを共有する
（同時にプロジェクターで映し出すのもいい）
それを各自が見ながら発言し、適宜各自が修正などを加えていく…
４～５人のお馴染みのメンバーによる会議なら、議事録作成はこれが一番手間いらずだったな

**デフォルトの名無しさん** · 2018/06/10(日) 13:08:10.31

共有ってのは情報を共有するってこと
ファイルがみんなの目に触れられるところにあればそれは共有してると言える
同時に開けるか否かは関係ない
社長のスケジュールを社員全員が共有する、みたいな

**デフォルトの名無しさん** · 2018/06/10(日) 13:21:16.74

入力しにくい、同時作業しにくい、検索しにくい
エクセルは情報共有ツールじゃないということだ
実は表計算ツールなんだよね

**デフォルトの名無しさん** · 2018/06/10(日) 14:24:40.68

ExcelはDTPソフトにもデータベースソフトにも統合開発環境にもなる

何か一つしかアプリをインストールできないとなれば間違いなくExcelを選ぶ

**デフォルトの名無しさん** · 2018/06/10(日) 15:03:32.84

何かひとつならdotnetインストールするわ

**デフォルトの名無しさん** · 2018/06/10(日) 15:26:15.87

単にエクセルしか使えないだけ

**デフォルトの名無しさん** · 2018/06/10(日) 15:32:22.56

単に向上心がないだけ

**デフォルトの名無しさん** · 2018/06/10(日) 16:32:55.66

>>215
一応あるぞ
https://support.office.com/ja-jp/article/%E5%85%B1%E6%9C%89%E3%83%96%E3%83%83%E3%82%AF%E6%A9%9F%E8%83%BD%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6-49b833c0-873b-48d8-8bf2-c1c59a628534

**デフォルトの名無しさん** · 2018/06/10(日) 18:16:45.90

共有はオブジェクトが扱えないのがなぁ

**デフォルトの名無しさん** · 2018/06/11(月) 01:50:54.91

じゃあなんでexcelがこんなに普及してんの？
ここであれこれ名前が上がるけど、マイオナにしか聞こえん

**デフォルトの名無しさん** · 2018/06/11(月) 02:28:17.34

普及してるのは最初から入ってるから
でも今では会社じゃほとんど使わないですよ
使ってもメモ替わり程度
それ以上の用途はそれぞれの専用アプリを使います
なければWebアプリを中心に作ります
エクセルメインって弱小零細企業なんだろうけどテクノロジーは恐ろしいスピードで変化してますよ

**デフォルトの名無しさん** · 2018/06/11(月) 03:08:00.26

日本の過半数は中小で政府の提供ファイルもExcelやぞ
http://www.chusho.meti.go.jp/pamflet/hakusyo/H27/h27/shoukibodeta/h27/html/b1_1_1_2.html