Excel VBA 質問スレ Part45 [無断転載禁止]©5ch.io
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2017/01/03(火) 02:51:16.56ID:9Y8iTik6コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part44
http://echo.2ch.net/test/read.cgi/tech/1479421482/
※関連スレ
VBAなんでも質問スレ Part2
http://echo.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://echo.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 125
http://echo.2ch.net/test/read.cgi/bsoft/1481369538/
0331デフォルトの名無しさん
2017/01/26(木) 12:00:40.09ID:mPWEbfd1使い捨ての例示だろ?
それで十分さ
0332デフォルトの名無しさん
2017/01/26(木) 12:04:08.41ID:mPWEbfd1型ごとの下限値とか一日の秒数とか、文脈で明かでかつ誰でも知っている値は本番プログラムでもなきゃそのまま例示するさ。
0333デフォルトの名無しさん
2017/01/26(木) 12:07:50.47ID:ZDwsAfthそうかもね
ただ>>309が不憫でよ。
いきなり>>314だろ。
>>315で結びが『かもしれない』
まじがんばれ>>309
0334デフォルトの名無しさん
2017/01/26(木) 12:17:36.90ID:mPWEbfd1じゃあ別な方法を示せばいい
そもそも「正負がなんの意味もない」ってどういうことだ?説明しろ。
0335デフォルトの名無しさん
2017/01/26(木) 12:31:36.89ID:SSl970Brやりようによってはグローバル変数って不要じゃないかな?
って思う
0336デフォルトの名無しさん
2017/01/26(木) 12:39:56.63ID:oMPl1Srsでも>>315に関して「一回目は絶対最大値なんです。正負はなんの意味もない」ってのは意味不明
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B5")) Is Nothing Then
Exit Sub
Else
Range("C5") = WorksheetFunction.max(Range("B5", "C5"))
End If
End Sub
0337デフォルトの名無しさん
2017/01/26(木) 12:47:28.93ID:ZDwsAfth提示コードとは切り離す。
片手落ちの提示コードなら
初期値を型下限にしないと負側は
動かないよ。
最大値の定石算法なら正負は意味ないよ。
だって正しく求まるから。
http://d.hatena.ne.jp/geek-it/touch/20120226/p1
0338デフォルトの名無しさん
2017/01/26(木) 12:55:45.77ID:ZDwsAfthc5は試行の開始では
どういう状態なんだろうね?
0339デフォルトの名無しさん
2017/01/26(木) 12:57:50.00ID:mPWEbfd1n[0]とは何で、どうやって取得するのか教えて
0340デフォルトの名無しさん
2017/01/26(木) 12:58:02.38ID:oMPl1Srsとりあえず馬鹿ってことはわかった
グローバルにカウンタつくってIf count = 1 Then ってやっときゃいいじゃんw
0341デフォルトの名無しさん
2017/01/26(木) 13:09:31.18ID:ZDwsAfthb5からとるんだよ。
ただ
ほんとに知りたいところそこなの?
これから何を本質的に疑問に思ってる?
0342デフォルトの名無しさん
2017/01/26(木) 13:11:07.17ID:ZDwsAfthその手段で
どういった目的を達成できるか
説明お願いします。
0343デフォルトの名無しさん
2017/01/26(木) 13:16:03.48ID:mPWEbfd1B5に初めて値が(たとえば3とする)が代入されたとき、C5にはもちろん3と表示されるべきだが、それをどうやってやるの?
0344デフォルトの名無しさん
2017/01/26(木) 13:19:12.95ID:oMPl1Srsたぶん根本的に意味をわかってない
0345デフォルトの名無しさん
2017/01/26(木) 13:22:44.99ID:mPWEbfd10346デフォルトの名無しさん
2017/01/26(木) 13:24:08.19ID:oMPl1Srsだから自分でコード書いてみろって
何を勘違いしてるか自分で気づくだろ
0347デフォルトの名無しさん
2017/01/26(木) 13:26:06.34ID:oMPl1Srs0348デフォルトの名無しさん
2017/01/26(木) 13:28:19.88ID:mPWEbfd1ドンマイ
0349デフォルトの名無しさん
2017/01/26(木) 13:30:55.01ID:ZDwsAfthドンマイ
0350デフォルトの名無しさん
2017/01/26(木) 13:33:47.09ID:oMPl1Srsすまんな
コードの提示を頼むわ、飯くってくる
0351デフォルトの名無しさん
2017/01/26(木) 14:19:03.93ID:5gl79ALuWorksheet_Changeとかのイベントで
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim peak, x: peak = "C5": x = "B5"
If Not IsNumeric(Range(x)) Then Exit Sub
If Not IsNumeric(Range(peak)) Then Range(peak) = Range(x)
If Range(peak) < Range(x) Then Range(peak) = Range(x)
End Sub
セルが空でも動く
0352デフォルトの名無しさん
2017/01/26(木) 14:25:54.93ID:MANz96Le参照設定でMicrosoft Scripting Runtimeを追加して、標準モジュールに以下のコードを記述後、
C5に=showMaxValue(B5)と入力する。
'対象セルの最大値を保存する場所
Dim dic As New Dictionary
Public Function showMaxValue(cell As Range)
If IsEmpty(cell) Then
' 対象セルをクリアしたときにどう振る舞うのかを
' 決定する必要があるが、取りあえず何もしない
Exit Function
End If
If dic.Exists(cell.Address) Then
If cell.Value > dic(cell.Address) Then
dic(cell.Address) = cell.Value
End If
Else
dic.Add cell.Address, cell.Value
End If
showMaxValue = dic(cell.Address)
End Function
0353デフォルトの名無しさん
2017/01/26(木) 14:57:52.29ID:mPWEbfd1なるほど
0354デフォルトの名無しさん
2017/01/26(木) 16:21:12.51ID:U3KmvQxt>>311
>>312
ご回答どうもありがとうございます。htmlでとは全く思いつかなかったので目から鱗でした。ただ、改ページプレビューでの印刷範囲などがhtmlだとうまくできないです。
また、絶対参照になってしまうのはexcel2013以降の仕様のようなことが書いてあるサイトを見つけました。
http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips21.htm#S9
結局ファイルを分けて実ファイルを挿入する方法にします。
どうもありがとうございました。
0355デフォルトの名無しさん
2017/01/26(木) 18:30:34.79ID:Cqc92u/shttps://www.youtube.com/watch?v=CTotYTOpR9E
0356デフォルトの名無しさん
2017/01/26(木) 19:37:07.62ID:3eEczd4r0357デフォルトの名無しさん
2017/01/26(木) 19:56:43.48ID:GoiJIG7Tそれって複数のセルを扱えるようにしてるだけで初期値については >>329 の Variant と本質的には一緒だよね
0358デフォルトの名無しさん
2017/01/26(木) 20:03:13.82ID:3C+35NwQなにをどうshowしてんだよw関数名で嘘つくとかサイテーだなw
0359デフォルトの名無しさん
2017/01/26(木) 20:10:27.05ID:q3eaEqve>>329のまま複数のセルで関数を使うと想定外の結果になるんだから>>352のは優れている
0360デフォルトの名無しさん
2017/01/26(木) 20:50:17.03ID:5GTFMqAx0361デフォルトの名無しさん
2017/01/26(木) 20:55:56.92ID:uLxLwJKu> 初期値については
って書いてますやん...
0362デフォルトの名無しさん
2017/01/26(木) 20:58:31.55ID:5GTFMqAxなるほど。
すマンこ
0363デフォルトの名無しさん
2017/01/27(金) 05:00:53.63ID:wqjWN3QHセル(1,1)から始まって横に 3、12、−1、6、−2など数字が続き、
マイナスだけ抽出して合計したい場合はどうすればいいでしょうか。
↓では当たり前ですがうまくいきません…
Sub test()
x = 1
Do Until x > 5
If Cells(1, x) < 0 Then
Cells(1, 6) = Cells(1, x)
End If
x = x + 1
Loop
End Sub
0364デフォルトの名無しさん
2017/01/27(金) 05:25:43.17ID:MGewCQt5マイナスだけ合計
Sub test()
x = Application.WorksheetFunction.SumIf(Rows(1), "<0", Rows(1))
Debug.Print x
End Sub
0365デフォルトの名無しさん
2017/01/27(金) 05:30:31.67ID:0Brpc+WLSub test()
Cells(1, 6) = 0
x = 1
Do While x <= 5
If Cells(1, x) < 0 Then
Cells(1, 6) = Cells(1, 6) + Cells(1, x)
End If
x = x + 1
Loop
End Sub
0366デフォルトの名無しさん
2017/01/27(金) 09:12:54.82ID:xuyo3rhoセルに"/"(スラッシュ半角)か"×"(バツ)を入力したら、
そのセルに右上がりの斜線を自動で引かれるようにしたいのですが、
コードを教えてください。
スラッシュを消したら斜線も消えるようにもしたいです。
対象はSheet1の全セルです。
よろしくおねがいします。
0367デフォルトの名無しさん
2017/01/27(金) 09:21:50.43ID:E/4Vr26G0368デフォルトの名無しさん
2017/01/27(金) 09:57:52.06ID:Ne4o/N/hそんなのより対象セルを選択した状態で {ctrl + なんとか} の方が便利だしコードも簡単になると思うけどな
0369デフォルトの名無しさん
2017/01/27(金) 12:55:33.52ID:2/l+3kL40370デフォルトの名無しさん
2017/01/27(金) 14:20:38.90ID:pYLJsuuuworksheetのchangeイベントかなんかでセルの値がかわったら罫線引くようにするしかないんじゃね
罫線の引き方はマクロの記録で調べなさいよ
0371デフォルトの名無しさん
2017/01/27(金) 19:39:13.72ID:2UbAAj3qPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "/" Then
With Target
.Borders.Weight = xlThin
.Borders(xlDiagonalUp).LineStyle = xlContinuous
End With
End If
End Sub
消すのは逆をすればいいんでない?
0372デフォルトの名無しさん
2017/01/27(金) 20:32:43.21ID:WmIjEyaD条件付き書式でいいだろ
って思ったら条件付き書式って斜め罫線ダメなんだな
他の罫線はいいのにちょっと不思議
なので Sheet1 のシートモジュールにこれを書けばいい
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
Cell.Borders(xlDiagonalUp).LineStyle = IIf(Cell.Value = "/" Or Cell.Value ="×" , xlContinuous, xlNone)
Next
End Sub
0373デフォルトの名無しさん
2017/01/27(金) 22:47:33.41ID:Fb1FgEo20374デフォルトの名無しさん
2017/01/27(金) 22:49:12.60ID:2UbAAj3qコード書きながらそう思ったよw
0375デフォルトの名無しさん
2017/01/28(土) 12:01:46.67ID:w/mx7yyO下記は調べたい書式のほんの一例です。実際に調べたい書式はもっとありますし将来的にもどんどん出てきます。
・文字列に、数字+"/"の数字を含む (例)予定は2/3
・文字列が、"平成"ではじまる (例)平成元年
・文字列に、2文字以上の空白を含む (例)I have a pen.
などなど
つまり正規表現のようなものをVBAのコードで使うときの定番ってなんでしょうか?
0376デフォルトの名無しさん
2017/01/28(土) 12:03:39.31ID:w/mx7yyOもっと短く一般的にできる方法はないかと思って。
0377デフォルトの名無しさん
2017/01/28(土) 12:07:32.57ID:BY939/WJ簡単なものなら Like演算子
本格的にやりたいなら正規表現オブジェクトを使う
正規表現オブジェクトは
"Microsoft VBScript Regular Expressions"を参照設定するか
Set RegExp = CreateObject("VBScript.RegExp")
0378デフォルトの名無しさん
2017/01/28(土) 12:21:25.10ID:w/mx7yyOなるほどLikeがござったか。ありがとう。
0379デフォルトの名無しさん
2017/01/28(土) 12:25:02.06ID:ktdFkm2m侍かな
0380デフォルトの名無しさん
2017/01/28(土) 12:27:02.94ID:w/mx7yyO0381デフォルトの名無しさん
2017/01/28(土) 12:42:49.48ID:9EkLNFiw0382デフォルトの名無しさん
2017/01/28(土) 21:50:14.17ID:d5Th95j2転職を考えているので、職場では自分だけが使うものしかマクロ化出来ない。
今のレベルの自分にオススメの書籍を教えて下さい。書店でじっくり探す時間が無いので。
今持ってるのは公式テキスト、「例題30問と演習70問でしっかり学ぶexcelVBA標準テキスト」です。
目標はぼんやりしているけど、こういうの作れない?と聞かれたら涼しい顔して作れるようになりたい。
0383デフォルトの名無しさん
2017/01/28(土) 22:22:23.13ID:F0MmKngEファウラーのリファクタリングあたりが脱初心者にオススメ
Javaで書かれてるけどVBAでも考え方は同じ
0384デフォルトの名無しさん
2017/01/28(土) 22:43:36.09ID:XFsAlNLB順番が逆なんだよ(システム屋は別だけど)
特に下っ端レベルだと、業務覚える→自動化考える→実装に必要な知識覚える。
これを繰り返すしかない
0385デフォルトの名無しさん
2017/01/28(土) 22:44:58.87ID:d5Th95j2ありがとうございます。
どちらも初めて聞いたのでググりました。
ファウラーのリファクタリング、本当に脱初心者って感じですね。何か重厚そうで少しビビります。
コードの良し悪しも、あまりにもひどいもの以外はよくわからないレベルなので
読んでみようと思います。
0386デフォルトの名無しさん
2017/01/28(土) 22:56:38.87ID:HZ4XiulJVBAで接続してそこからデータを持ってくるとかあるいはexcelのデータをテーブルに入れるとかさ。
知ってるんだったら良し、知らないんだったらフリーのRDBいっくらでもあるんだからそれ入れてADO勉強したら?
0387デフォルトの名無しさん
2017/01/28(土) 23:06:20.39ID:d5Th95j2業務覚える→自動化考える→知識覚える
これが一番なんですが、今の職場で人に影響が及ばない範囲で出来ることはやりきってしまったというか、大して出来ることが無いので。
経理の知識とVBAの知識両方で勝負したいとは思っているのですが
日商簿記2級とVBAスタンダード、どちらも中途半端過ぎて
今勉強するならどの方向かなと迷っているところです。
これ以上はスレ違いですが。
0388デフォルトの名無しさん
2017/01/28(土) 23:16:20.97ID:d5Th95j2よく知りません。
自分の今の状態、マクロの記録に毛が生えたくらいでこの数レスでもわからない単語が続出です。
ADO、フリーで使えるものが多いのは魅力です。ググってきます。
0389デフォルトの名無しさん
2017/01/28(土) 23:33:58.91ID:uAPjBDjx0390デフォルトの名無しさん
2017/01/29(日) 00:15:01.19ID:xYYwoQBZ扱うデータが多いと、SQLの知識も必要になる。
(処理速度的な理由で)
0391デフォルトの名無しさん
2017/01/29(日) 00:31:34.31ID:WKRhYkpmあとはselectだけだろ?
0392デフォルトの名無しさん
2017/01/29(日) 00:34:44.45ID:+blbXYZxその手の洪は楽しいよね
一冊くらいしか読んだこと無いけど
0393デフォルトの名無しさん
2017/01/29(日) 00:34:52.23ID:xgaFxxwc0394デフォルトの名無しさん
2017/01/29(日) 01:19:55.73ID:8UrWbtOI0395デフォルトの名無しさん
2017/01/29(日) 14:59:17.63ID:cSvePZMz0396デフォルトの名無しさん
2017/01/29(日) 15:22:05.76ID:M0HgmB1M普通は生産性の高い他の言語にシフトするよね
0397デフォルトの名無しさん
2017/01/29(日) 15:28:40.27ID:Gj2SxjJF0398デフォルトの名無しさん
2017/01/29(日) 15:53:56.99ID:M0HgmB1MVBAに執着する連中って視野が狭いから周り見えてないんだろうけど
0399デフォルトの名無しさん
2017/01/29(日) 16:40:53.45ID:WrrdSNFA0400デフォルトの名無しさん
2017/01/29(日) 16:57:33.53ID:cyG8RQu0「みんながみんなお前のようなマニアじゃねえんだよ」ってなもんで。去年、元SEでオラクル使いが
入社してきたがすぐに状況を察して「オレ、パソコン全然わかんない」とかトボケてやがるしw
0401デフォルトの名無しさん
2017/01/29(日) 16:59:25.83ID:xgaFxxwcえ?制約ってどんな?
馬鹿ばっかな上にこういう知ったかが出て来るクソスレは面白いな。
0402デフォルトの名無しさん
2017/01/29(日) 17:19:22.35ID:Urob8xZw型を指定できないとかじゃね?
関数も全部使えるのか知らないし
自作関数を使えたりするのかも知らない
0403デフォルトの名無しさん
2017/01/29(日) 18:01:06.86ID:cSvePZMzINSERTが不確実だとか読み込める行数に制限があるとか、
空白行が捕まえられないとかDELETE文が使えないとか、割とあるんだけど知らない?
実際にやってみればすぐ分かる事なんだけど、
ほとんどSELECT文しか使えないから手間に対して益が少ないんだよね。
0404デフォルトの名無しさん
2017/01/29(日) 18:09:45.36ID:JZZjSwEkそうだよね。
俺も SELECT 以外はダメだと思ってやめた。
単一オフィス内の事務だったらSQL Server Express で十分だし移行も簡単だと思う。
0405デフォルトの名無しさん
2017/01/29(日) 18:14:00.80ID:zuNgR2z5delete文も他も普通に使えるけど。
0406デフォルトの名無しさん
2017/01/29(日) 18:15:13.50ID:zuNgR2z50407デフォルトの名無しさん
2017/01/29(日) 18:39:53.21ID:M0HgmB1Mジャップにはよくある文化だね
頑張って追いつくより足引っ張って横並びになろうとする
0408デフォルトの名無しさん
2017/01/29(日) 18:50:33.75ID:Nv+lqz67馬鹿はこれだから。
全部できるだろうが。
お前の馬鹿頭ではできないだけ。
0409デフォルトの名無しさん
2017/01/29(日) 19:21:57.62ID:xNqGWhsyシートに対してのsqlなら
そうだけど。
言及対象あいまいすぎる。
0410デフォルトの名無しさん
2017/01/29(日) 19:32:30.38ID:6wGEJq5M引っ込みつかなくなる前にやめとけ
0411デフォルトの名無しさん
2017/01/29(日) 19:33:42.10ID:3OHjeGHP0412デフォルトの名無しさん
2017/01/29(日) 19:36:11.18ID:xYYwoQBZ0413デフォルトの名無しさん
2017/01/29(日) 19:55:32.59ID:8UrWbtOIというか、わざとやってるくさい
0414デフォルトの名無しさん
2017/01/29(日) 20:12:03.53ID:cyG8RQu0ウンコ臭いぞトンスラー、俺にすんじゃねえ
0415デフォルトの名無しさん
2017/01/29(日) 20:19:04.92ID:cSvePZMz外部のSQLを使えるソフトに繋ぐことが前提だったら、エクセルに依ったSQLの制限があると考える方がおかしいし、
そもそもADOがエクセルに対応しているのであってエクセルがSQLに対応してるわけじゃないんだから「エクセルのSQL」って言い回しにはならない。
0416デフォルトの名無しさん
2017/01/29(日) 20:36:29.34ID:xgaFxxwcADOも知らない馬鹿頭は黙ってろ
0417デフォルトの名無しさん
2017/01/29(日) 20:37:42.65ID:M0HgmB1M0418デフォルトの名無しさん
2017/01/29(日) 20:39:15.31ID:xgaFxxwcADOがExcelに対応してる?
馬鹿は死ねよ。
ADO使わずとも呼び出す方法もあるし、わからん奴が知ったかしてるんじゃねーよ。
お前の頭だからできないだけのことを製品のせいにすんな。
0419デフォルトの名無しさん
2017/01/29(日) 20:46:40.49ID:3OHjeGHPDriver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}
等した時に制約が多いって話だよな?
0420デフォルトの名無しさん
2017/01/29(日) 20:55:06.81ID:cSvePZMz無自覚に「エクセルからDBソフトに繋ぐ時はADOを使う」って前提に立ってたわ。
0421デフォルトの名無しさん
2017/01/29(日) 21:02:39.47ID:Urob8xZwこの環境だと色々制約があるんじゃね?
RDBMSを別に立てたらSQLの結果を受け取るだけだし
0422デフォルトの名無しさん
2017/01/29(日) 21:03:02.19ID:6wGEJq5Mめんどくせーなー
削除するコード書いてからほざけ
0423デフォルトの名無しさん
2017/01/29(日) 21:12:07.55ID:xSN3m+WXあ、ごめん
罵倒することでしかやりとりできないようなヤツとは関わらないって決めてるので誰にも迷惑のかからないところで勝手に盛り上がっててください
0424デフォルトの名無しさん
2017/01/29(日) 21:14:54.50ID:xNqGWhsyどうでも良いのに
答え求めてわらた
0425デフォルトの名無しさん
2017/01/29(日) 21:18:43.36ID:3OHjeGHPオッ
0426デフォルトの名無しさん
2017/01/29(日) 21:23:53.48ID:xgaFxxwc0427デフォルトの名無しさん
2017/01/29(日) 21:42:14.95ID:M0HgmB1M0428デフォルトの名無しさん
2017/01/29(日) 21:49:05.82ID:3OHjeGHPそれで会社として生き残っていけるんならさぞ余裕があるんだろう
...それとも沈みゆく泥舟なのか?
0429デフォルトの名無しさん
2017/01/29(日) 21:58:25.91ID:9pGSsNTY零細企業の大半はそんなもん
しかも日本に限らん
0430デフォルトの名無しさん
2017/01/29(日) 22:09:31.30ID:3OHjeGHPそこに力を入れてもビジネスチャンスには結びつかん、という判断なのかな
それならOfficeレベルより上は不要かも
■ このスレッドは過去ログ倉庫に格納されています