Excel VBA 質問スレ Part48 [無断転載禁止]©2ch.net

2017/05/16(火) 08:24:45.78

!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※前スレ
Excel VBA 質問スレ Part47 [無断転載禁止]©2ch.net
http://echo.2ch.net/test/read.cgi/tech/1489557874/

※関連スレ
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/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

2017/05/16(火) 10:48:12.64

前スレでScreenUpdating=Falseしない派いる?ってのがあったけど、コード書いてる時は基本しない。
あれで速くなったっていうのは基本コードが悪いだろ。

2017/05/16(火) 11:05:20.21

>>2
ScreebUpdating =False ：警告Off
ScreebUpdating =True ：警告On

2017/05/16(火) 11:06:03.77

連続typo失礼

2017/05/16(火) 11:08:01.35

ScreenUpdatingの有無で速度が左右されるのは、セルに値を入れる等して描画に影響する操作をする場合だけだから、
結果を吐き出す際に一度だけしかセルにアクセスしないとかなら要らないね。

2017/05/16(火) 12:41:08.19

>>5
表示の更新してんなら要るわ

あとエクセルでセルに値を書き込むことを「吐き出す」と言うのは
素人が玄人の真似して訳もわからずそれっぽい言葉使ってみました感が強すぎる
分かる人が見ればコイツ馬鹿だなってバレバレだからやめた方がいいぞ

2017/05/16(火) 12:57:55.01

自称玄人 w

2017/05/16(火) 13:01:13.42

つまり量によるわけだな。

2017/05/16(火) 13:03:31.49

つまり量によるわけだな。
ScreenUpdating = False しないと辛くなってきたら、それは
ワークシートで管理するデータや式が多くなりすぎたという警告とみなすスタイルが成り立つ。

2017/05/16(火) 14:23:33.68

>>6
えっ?
素人玄人関係なく使うでしょ。
そんなの意識したこと無いぞ。

>>9
量なのかなあ。
そりゃいい加減にコード書くことも有るけど、そういう場合で遅く感じたらちゃんとしたコードに変更するだけだろ。
どうしても描画が何回か走ってチラつきを防止するために最後に追加するぐらいだな。

2017/05/16(火) 14:27:59.56

>>10
ちゃんとしたコードとは？

コードの問題ではなくてデータの問題だ、というのが俺の主張

**デフォルトの名無しさん** (JP 0Hff-+8ye) · 2017/05/16(火) 14:53:18.62

不毛

2017/05/16(火) 14:57:07.86

>>9
ワークシートから値を取り込んだり、値をワークシートに書き出したりっていう処理は、
Rangeを使えば一括して行うことが出来るので、データ量はそこまで問題にならない。

どちらかというと罫線、色、数式みたいな一括処理しづらいものが問題で、
ScreenUpdating次第で処理に大きく差が出る。
こういったものは保守も面倒なので手作業で代替出来ないかとか考えるといいかもね。

2017/05/16(火) 15:11:19.05

オートフィルタかけた後のデータの、特定の1列だけを配列に格納したいのですが、何かいい方法はないでしょうか

2017/05/16(火) 16:37:32.48

>>14
SpecialCells(xlCellTypeVisible)で可視状態にあるセルだけを取り出せる。

2017/05/16(火) 19:14:29.63

クラスモジュールって使いますか？
大抵のことはfornext、foreachで済んでしまうのですが、vbaでクラスを使ったほうが便利なのでしょうか

2017/05/16(火) 19:31:35.09

>>16
必要かどうかってことなら必要ない
でも大がかりなの作るなら使って整理したほうがやりやすいんじゃないのかな

for文と比較する感覚がいまいち伝わってないから的はずれならごめんなさい
関数とか配列とかと比較するならわからなくもないんだけれど

2017/05/16(火) 19:45:30.76

>>17
私が使うのは事務処理で、表を作ったり、リネームする時にマクロを使う程度なのです
クラスはあんまり必要無さそうですね、ありがとうございました

2017/05/16(火) 19:48:36.06

>>10
悪いけど素人しか使わんわそんな恥ずかしい言い方w

2017/05/16(火) 19:53:23.03

言い方はどーだっていいんだよ
伝われば

2017/05/16(火) 20:28:49.31

>>13
うん、罫線とかはしようが無いね。
でも罫線もマクロ記録のままの酷いコード書く人もいる。

データについては1つ1つのセルに値を入れるなんてことはすべきじゃない。
普通は1つの表で一括入力でしょ。
どうしても速度を出したい時は汚くなるけどシート内データ全部を一括入力にする。
あとは、使える場面が限定されるけどマルチプロセスにするとか。

>>18
クラスを使う場面ってのは慣れてれば感覚的にぴったりくる。
オブジェクト指向的にぴったりくる場合。
でも、他のメンバーが慣れて無いと却って良くない場合もあるね。

2017/05/16(火) 21:04:28.77

Dim スコーン As New Class

↑このスコーン自体を引数に使うことは出来ますか?
スコーン.Name =

2017/05/16(火) 21:05:07.95

スコーン.Name = "スコーン"　とか書きたんくないですんけど。

2017/05/16(火) 21:12:00.81

>>22
出来るよ。
そうしたい目的はなに？

2017/05/16(火) 21:38:51.33

>>24
>>23だと、スコーンの名前はスコーンとか言ってるようなものじゃないですか。
何か変なので、どうにかしたほうがいいなと。

2017/05/16(火) 21:44:47.11

>>25
引数にしたいことと
nameに代入することの関係性が分からない。
まぁ宣言をお菓子にしとけばいいんでない。

2017/05/16(火) 21:48:13.03

PHPならget_class()なんてそのまんまなものがあるんだけどね
vbaには無いっぽいな

2017/05/16(火) 21:54:30.99

>>25
あーあ、やっちゃったね
質問するにもマナーってものがあるんだよ
スレを荒ららない為にもこの際覚えておけ

「目的を聞くやつにレスを返してはいけない」

2017/05/16(火) 21:59:56.08

そんな法則は聞かないな

2017/05/16(火) 22:19:15.46

>>28
いつかそのマナー広まるといいね！
影でこっそり応援してぬわ。

2017/05/16(火) 22:30:24.74

なんで目的を聞くやつにレスを返してはいけないの？
質問の意図を汲もうとしているかもよ？

2017/05/16(火) 22:33:38.25

>>31
その聞き方だと件の>>28は返事出来ないよ。
理由は察してあげて

2017/05/16(火) 22:35:06.66

>>26
クラス名で分岐させたいパターンがある
ゲームプログラムだとclass名で敵か味方か判別する、というのは見たことがあるな
せめて継承でもできればその辺共通化できるんだけど、そこはvba。めんどくさい

しかしエクセルだとどういう状況か思い浮かばない

>>30
してなくて草

2017/05/16(火) 22:44:02.80

>>31
質問の意図が分からん奴は質問に答えられない
目的を聞いても質問者の意図を引きだす事はできない
簡単な事だ

2017/05/16(火) 22:49:11.64

>>34
なるほど。
素晴らしいね。
がんばれー

2017/05/17(水) 00:01:38.90

>>33
制御の向きが逆だよなあ

2017/05/17(水) 00:23:20.25

TypeName関数で自作クラス名って取り出せないんだっけ？

2017/05/17(水) 00:32:22.34

>>37
それはできるけど、Meがない
Meがあればなんとでもできる

標準モジュール
Sub foo()
Set c = New Class1
'これはできる
Debug.Print TypeName(c)
End Sub

'クラスモジュール
Private Sub Class_Initialize()
'これができない
Debug.Print Me.TypeName
End Sub

2017/05/17(水) 00:39:06.93

クラス内部でつかうんなら
これじゃいかんのか?
Debug.Print TypeName(Me)

2017/05/17(水) 00:45:43.01

>>39
すまん、いけた

解決！

標準モジュール
Sub foo()
Set bar = New Class1
Debug.Print bar.get_name()
End Sub

'クラスモジュール
Public name
Private Sub Class_Initialize()
name = TypeName(Me)
End Sub
Function get_name()
Debug.Print Me.name
End Function

2017/05/17(水) 00:51:22.92

解決やな

2017/05/17(水) 17:27:48.02

>>39
>>40
ありがとうございます。
それで名前があるものに名前を付けなくて済みます。

**デフォルトの名無しさん** (JP 0Hff-+8ye) · 2017/05/17(水) 17:53:56.84

>>40
そのコード、
Sub foo()
　　Set bar = New Class1
　　Debug.Print TypeName(bar)
End Sub
と同じじゃないの？

>>33
> せめて継承でもできればその辺共通化できるんだけど、そこはvba。めんどくさい
VBEのオブジェクトコンボボックスとプロシージャコンボボックスを選択すれば、
コードを自動生成してくれるから、全然めんどくさくないよ。

2017/05/17(水) 20:29:29.04

俺は今重要な判断を下した
お前らは事務のねーちゃんよりスキルが低い
少なくともうちの事務のねーちゃんより低い事は確実だ

2017/05/17(水) 21:05:07.82

>>44
お前、レスもらうのめっちゃうまいなｗ
思わず反論しそうになった
2chでレスをもらう能力、俺は敬意を表するよ

もしよければ、年齢と性別、職業を教えてほしい。どんな人か本気で気になる

2017/05/18(木) 06:43:55.44

24歳
女
マイクロソフトジャパン勤務

2017/05/18(木) 08:36:51.83

>>46
悪くないよ。
なんつーかｺｳｳﾝ

2017/05/18(木) 14:52:51.70

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address

Case "$A$1"

If Not IsNumeric(Target.Value) Or Target.Value = "" Then

Exit Sub

Range("B1:B9").Copy Range("B2")

Range("B1").Value = Range("A1").Value

Target.Select

End Select

End Sub

このコードの意味教えてくださいー

2017/05/18(木) 15:34:33.70

まずは実行してみたらどうだ

2017/05/18(木) 17:11:10.34

Private Sub Worksheet_Change(ByVal Target As Range)
ここに、Subの処理を定義する
End Sub

Select Case Target.Address
ここに、Caseの処理を定義する
End Select

Select Case Target.Address
// Target.Address が、"$A$1"なら
Case "$A$1"

// Target.Value が数値ではない、または、空文字列なら、Subを抜ける
If Not IsNumeric(Target.Value) Or Target.Value = "" Then

Exit Sub

// copy
Range("B1:B9").Copy Range("B2")

// 代入
Range("B1").Value = Range("A1").Value

// 選択？
Target.Select

End Select

2017/05/18(木) 19:06:48.56

>>48
ugokanai kedo

A1セルの中身が数字に変わった場合、
B1:B9をB2:B10にコピーペースト
B1をA1の内容にする

2017/05/18(木) 19:21:07.71

>>51
A1を選択
が抜けてる

2017/05/18(木) 22:27:14.87

マウスポインターの移動量かマウスのスクロール量を検知って出来ますか？

2017/05/18(木) 23:31:41.56

form上の話ならMouseMoveイベント使えばなんとかなるんじゃね？
form以外でならwin32api（GetCursorPosとか）を駆使すれば

2017/05/19(金) 12:10:12.11

最新版のExcelで、ファイルを開いた直後にだけコンパイルエラーが出るようになったから絶対更新しないほうがいいぞ

エラーが出るのは
Function ProcName(cel As Range) As Double
とか、パラメータにAs Rangeを持つところみたいで
一応As Objectに変えてしまえば通るけど、治すの大変だ・・・

2017/05/19(金) 12:26:18.38

関連してそうな情報を発見
https://blogs.msdn.microsoft.com/office_client_development_support_blog/2017/05/17/
とうとう本気で.xls形式を殺しに来たか

2017/05/19(金) 12:27:06.53

>>55
なんていうか、まあ頑張れ

2017/05/19(金) 12:49:41.54

俺のInsider slow バージョン 1704(ビルド8067.2115)では
>>55の情報だけをたよりにやってみたけど問題ない (xls,xlsm 両方)
とだけ言っておく

2017/05/19(金) 13:13:31.21

>>58
すまない。新規ブックでは検証していなかった。

問題無いことを確認
14.0.718.5000
16.0.7927.1024
コンパイルエラーを確認
15.0.4927.1002
16.0.8067.2115
なので、>>58の環境でも発生すると思う。

新規ブックで、
Module1に
Function ProcName(cel As Range) As Double
ProcName = cel.Value
End Function

Sub btn_Click()
MsgBox "click"
End Sub
を書いて、ブック上のシェイプのマクロにbtn_Click()を割り当てるとファイルを開いた瞬間にだけコンパイルエラーが起こるよ

上記URLによれば、モジュール範囲の定義なら起こるらしいので
Private 変数 As Workbook
Sub btn_Click()
MsgBox "click"
End Sub
でもダメぽ

解決策はAs Objectとするか、モジュールを切り分けるしかない。

2017/05/19(金) 13:33:37.37

>>59
なるほどね
少なくとも　俺の環境下では　>>59の条件で xls のみだなその現象が発生するのは
xlsmは問題ない

つかもう　excel2003までのexcel形式(xls)使うのやめたら? と思うのだけど?

2017/05/19(金) 13:52:53.66

>>60
全くもって仰る通り。

以前から.xlsmへの切り替えを勧めているが、なかなか全てを切り替えられなくてね。
各個人に持たせているファイルを差し替えろって言ってもメール無視されるし。

あと単純に.xlsmに変えてしまうと
・他のシステムが対応していないせいでxlsしか使えない。
・表の最大値が大きくなったお陰で、既存のマクロだと末端の列列まで処理するループが混ざっていて永久に処理が終わらない。
　　（そのくらいマクロ直せよ・・）
・ブックのリンクが貼ってあるせいで過去のエクセルファイル全てのリンクを修復しないといけない。
　　（作ったやつ誰だよ・・）
・データサイズの大きい「共有ブック」をxlsmに変えるととてつもなく重くなる。
　　（データとマクロ分離しろよ・・）
とか様々な理由があって切り替えが終わってない。

ツッコミどころ満載やで。

2017/05/19(金) 13:56:26.64

いい　切り替えの機会じゃん
xlsは　もうまともに使えません(キリッ

・・・・と言えたらいいねw

2017/05/19(金) 22:44:50.72

変数宣言を一番上に書くと、
確認する時、スクロールで戻るのが面倒なんですが、
Excelなのに、上の方の画面を固定出来るという発想は無かったのでしょうか。
Excelなのに。

2017/05/19(金) 23:07:15.86

そんなことより行番号表示かと。

2017/05/19(金) 23:10:43.79

グローバルで別のモジュールに書いてウィンドウを並べるとか

2017/05/19(金) 23:27:00.50

Excel VBAしかやったことない人が何だか勘違いしてるようだがそもそもVBEはExcelの機能ではないぞ

2017/05/19(金) 23:34:30.47

>>63
> 変数宣言を一番上に書くと、
必要な所に書けばいいやん
って言うかスクロールが面倒なほどでかい関数とか書くなよ

2017/05/19(金) 23:42:30.09

>>63
確認する時って
変数の何を確認するの？

2017/05/19(金) 23:49:13.07

>>68
poって何の変数だっけ?
みたいな。

2017/05/19(金) 23:52:43.48

>>69
何の変数ってのがよく分からんのだけど、
Dim Example As Long: Example = 1
みたいに宣言と代入を上の方でしてるって話？
ローカルウインドウとかその他機能でなんとかならんの？

2017/05/19(金) 23:54:11.19

中身のわからない変数名を付けるからそんなアホな事をせにゃならんようになるんだ
似たような変数名が多すぎてややこしいならfunctionに分ける等、予め余計な手間が発生しないようにするんだ

2017/05/19(金) 23:59:18.39

>>63
書かなきゃよい

2017/05/20(土) 00:21:30.52

ネタだよな
コードウィンドウ分割するだけじゃねえのって思っちゃったけど
http://i.imgur.com/jnQLIFk.png

2017/05/20(土) 08:57:37.77

>>63は赤の他人が書いたクソ長いコードを解析させられている気の毒な人だ
と好意的に解釈しておこう

2017/05/20(土) 09:20:18.91

hoge param1:=xxx, param2:=yyy みたいな書き方に慣れないんですが
dummy = hoge(xxx, yyy) とかではダメな理由ってあるんでしょうか？

2017/05/20(土) 09:33:47.65

>>75
別にどっちでもいい。好み

ファイルの保存なんかもこの方が見やすいと思う
例えば保存時で比べる
ファイル形式を定数で打つと分かり辛い
Thisworkbook.SaveAs("C:\foo",43)
こう書けばフォーマットなんだな、ということが見てすぐにわかると思う
Thisworkbook.SaveAs Filename:="C:\foo",FileFormat:="43"
本当はこの方が良いけどね
Thisworkbook.SaveAs Filename:="C:\foo",FileFormat:="xlExcel9795"

他にも引数が大量にあるときやパラメータが複雑な時にわかりやすい。以下は見辛い
dummy = hoge(xxx, , , yyy, , ,zzz)

逆にsum()を
sum arg1:=xxx, arg2:=yyy
なんてすると読みづらいだけになる

と言ってる俺も保存の時ぐらいにしか使わないけどね

2017/05/20(土) 09:53:58.83

ありがとうございます
事務仕事でExcelVBAをいじる必要があったんだけど
大昔の非構造化BASICやFORTRAN、Cなどの印象しかないので最近の言語は抽象的すぎて分かりにくい

2017/05/20(土) 10:13:55.47

>>75
その名前じゃあまりメリットないけど引数の名前をちゃんとつけてたら分かりやすい
あと引数がたくさんある場合に後ろの方の引数を指定したい時とか
Workbook.Open FileName:="test.xlsx", AddToMru:=True

2017/05/20(土) 10:29:20.36

>>77
大昔のCって関数と最初の { の間に変数宣言するようなやつ？

2017/05/20(土) 10:44:25.75

>>79
そんなやつ、カーニハンとリッチーの第１版、白いカバーの表紙のやつ

2017/05/20(土) 10:50:27.63

変数を宣言しただけでは領域が確保されず
値を代入しただけでプログラムが暴走するんだけど原因に思い当たらず3日間悩んだ挙句に挫折した

2017/05/20(土) 10:54:07.27

>>81
上で見たけど、vbaは内部的にかなり変な挙動をしている
newの時点ではメモリ領域は確保されず、初めてプロパティやメソッドにアクセスした段階でメモリ領域が確保される

また、
set foo = thisworkbook
set bar = thisworkbook
は、foo == barに「ならない」
fooとbarは常に違う参照が生成されるので、別扱いとなる

そのコードを教えてくれれば問題解決できると思う
というか後学のためにも見てみたい

2017/05/20(土) 10:54:21.25

newじゃないや、setか

2017/05/20(土) 11:19:48.33

日本語も変数として使えるからわかりやすい名前つければいい

2017/05/20(土) 11:57:41.20

日本語は好き嫌い分かれるからなあ
俺は日本語が見易いけどさ

2017/05/20(土) 11:59:34.10

google翻訳しながら英語変数使うぐらいなら、日本語使ったほうが絶対に良い

2017/05/20(土) 13:11:22.41

Visual Basic Edtor　って、単体じゃ入手できないよな？
しかもExcelのバージョン違えば使い物にならんヶ所出てくるし
ThisWorkbook だって、どの？に成るだろうし
Microsoft Script Editer じゃあるまいし、どう考えてもExcelの付属品っつー立ち位置だろ
Excelの「おまけ」機能に決定

Word とか Outlook とかバリエーションは在るにしても

2017/05/20(土) 13:21:20.46

根本的に勘違いしててワロタw

2017/05/20(土) 15:37:38.60

>>73
>>63じゃないけど、これ知らんかったわ

2017/05/20(土) 18:04:39.38

無知って凄いね
感心した

2017/05/20(土) 18:24:24.01

>>63
C#とかVB.netでアドイン作ればOK。
VBAでもセキュリティに問題出るけど作ることは可能。

2017/05/20(土) 18:58:10.02

Excel VBA で Access と連携する業務システムって、ここの人達的にざっくりどう思いますか。社内システムの改良にアサインされてしまった。

2017/05/20(土) 19:08:49.87

>>92
どう思うって、どういう意味?
別に何とも思わんが。

2017/05/20(土) 19:16:24.30

>>93
前スレ478さんが、VBAでSQLは鬼門って書き込みしてるのを覚えてたもんで、苦労するシステム構成なのかなぁと

Excel VBAの質問じゃないからスレチでしたかね、すんません

2017/05/20(土) 19:18:51.52

>>92
良いんじゃね

2017/05/20(土) 19:51:15.58

苦労するかどうか、VBA以外にもSQL知っておかないといけないような気もするけど…

2017/05/20(土) 20:11:15.06

なんでVBAでSQLが鬼門なのか、理由とかあるの？

2017/05/20(土) 21:48:00.24

Accessと連携なら、問題ないんじゃ…。
単体だと、更新処理系が面倒。
参照だけなら大差ないと思う。

2017/05/20(土) 22:03:15.15

ExcelVBAとAccessVBAでSQLの構文に違いがあると言いたいの？？

2017/05/20(土) 22:25:58.77

>>97
やったらわかる
phpでsqlは黄金パターンでうまくいく。db設計もいつも通り。文字コードはutf8
エラー処理も死ぬほどある
、
C#やVBはかなりめんどくさい、というよりもそもそも使う必要がかったので、前任者の引き継ぎが非常にだるい
つまずく場面としては、具体的には文字コード。shift-jisだと最悪。また、db設計が適当
db接続も何かうまくいかない

2017/05/20(土) 23:25:01.03

>>100
要するにお前のスキルが低すぎてVBA程度もロクに使いこなせない、としか理解できない内容だな

2017/05/20(土) 23:32:49.13

>>100
その差が大きいとは思えないけど。
vbaでもutf8扱えるよ。
接続はodbcで繋がる。

2017/05/20(土) 23:35:59.38

ODBC=おでぶちゃん

2017/05/21(日) 00:10:42.76

>>99
SQLのUpdate、Delete、Replaceが駄目。

Excel側のRows().Deleteとか、Replace使えばいいだろって?
遅くないですか、それ。

2017/05/21(日) 00:16:44.29

それはVBAじゃなくてオラクルの問題なんじゃないのか？

2017/05/21(日) 00:22:22.71

>>105
どこからオラクルが出てきた!?

2017/05/21(日) 03:17:25.81

>>100
君なあ、能力の問題なのか性格の問題なのか分からんが説明が足らんのだよ。
ExcelからDAOを使うかADOを使うかによって変わるのは当然のことだし、ExcelとAccessでどうとか言われてもどういう観点の話か分からんだろ。

2017/05/21(日) 03:20:01.97

というか、文字コードの話が出てくるってことはODBCとかドライバの話まで出てくるじゃねーか。
それじゃあ違って当然だ。

2017/05/21(日) 07:08:05.80

質問させてください。
excelからoutlook起動させてメールを作成するマクロ作ってます。
数パターン用意したテンプレートに任意の文言を置換・挿入してoutlookに渡す？感じです。
動作自体はうまくいってるんですが、なぜかoutlookに渡した本文の文字サイズが12ptになってしまいます。
outlookのデフォルトの文字サイズは10ptだし、12ptになる理由が全く想像つきません...
漠然とした質問で申し訳ないですが、outlook側で設定したデフォルトの文字サイズでメールを作成するようにできないでしょうか？

初心者なので、的はずれなこと言ってたらごめんなさい。

2017/05/21(日) 07:40:39.09

>>109
とりあえずぱっと思いつく原因は、エクセル側が12ptなのでそれがoutlook側に渡っている気がする
テキストだけ渡すようにするか、エクセル側を一時的に10ptにしてメール作成後に12ptに戻すとかで対処できるかもしれない
全然違うかもしれない。コードを見せてもらえたら試してみるよ

2017/05/21(日) 08:14:42.08

>>97
>>104 とかの話でシートを SQL で操作する話を言ってるんだろ
あと >>100 は単にディスりたいだけ
PHP だといつも通りの DB 設計が VB/C# だと DB の設計が適当とか C# に挫折した底辺 PHPer の煽りだろ

2017/05/21(日) 09:34:47.94

しかしなんで今どきAccessなんか使うんだろ。
SQL Server簡単だよ。Management Studio使いやすいし。

2017/05/21(日) 09:46:01.40

事務的な作業ならAccessで十分だからだろうな。
というかローカルで使えるDBソフトってAccess以外にあんのかな。

2017/05/21(日) 10:23:28.85

>>112
DBMS だけじゃなくてレポート機能とかが欲しいんだろ

>>113
localhost で使えばどんなデータベースもローカルで使えるけど？
サーバーを立てたくないと言うなら sqlite とか
SQL-Server Compact Edition が見捨てられつつあるのが残念

2017/05/21(日) 11:05:17.83

使える人が多いってのは会社では非常に大きなメリット
桐ってソフトを使ってたけど、使える人が少なすぎてaccessに変えることになった

そしてword、てめーはダメだ

2017/05/21(日) 11:48:21.26

>>110
レスありがとうございます。
excel側の文字サイズは10ptなので、ご指摘の原因ではなさそうです。
恥ずかしいですが、ファイルをアップロードしました。
ダウンロードキーは「excel」です。
https://www.axfc.net/u/3807959
実行ボタンを押すと、outlookが起動されてメールが作成されます。
ご確認お願いします。

2017/05/21(日) 14:13:30.87

>>113
発想が貧困過ぎて草

2017/05/21(日) 14:33:37.38

>>116
さっぱり分からん。なんか挙動がバグくさい
エクセルvbaからメールを作るとフォルトで12pxになるようだ。これは仕様と捉えていいと思う
で、解決方法としてはこう
<body>タグにインラインcssを設定する

Sub msg2olapp()
'''Outlookでメール作成
Set mail_item = olapp.CreateItem(0)
mail_item.To = toadd 'To
mail_item.Cc = ccadd 'Cc
mail_item.subject = mailsub '件名
mail_item.body = mailbody '本文
mail_item.htmlbody = Replace(mail_item.htmlbody, "<BODY>", "<body style=""font-size:13px"">")
mail_item.Display '表示
End Sub

インラインcssで設定したフォントサイズは何故か3/4になる。理由も意味もわからんが、ゲイツの趣味かなんかだろう
深く考えずに10pxの4/3、つまり13pxでインラインcssを指定する。こうすれば10pxのフォントサイズになる

2017/05/21(日) 17:02:34.86

>>118
ありがとうございます。
望み通りの動作しました。

ちなみに、自分の環境では13pxだと6.5ptになってしまいました。(1/2になる？)
あと、>>116で作成したメールのタグを見てみたんですが、「p.MsoNormal...」ってとこのfont-sizeが12ptになっていて、そこを10ptに変更するとうまく表示されるようになるようです。

2017/05/21(日) 18:41:32.83

いまだにptとpx違いがわからない人っているんだね勉強になる

2017/05/21(日) 18:46:19.26

>>120
ありがとう本当に気づかなかった
web触ってるとptって単位は記憶から抹消されるわ

2017/05/21(日) 23:02:22.04

データベースとの接続処理で一つ教えてください

Sub test()
Dim wkR As New ADODB.Recordset

S_RecordsetClose (wkR)
End Sub

レコードセットのcloseとnothingの処理を一つにまとめようとしたんですが、
型が一致しません　　　と S_RecordsetClose (wkR) のところでエラーになります

Debug.Print TypeName(wkR)　で見たら当然（だと思うんですが）Recordsetに
なってるんで、なんでこれで型の不一致になるんです？

ちなみに S_RecordsetClose　に書いた処理は↓です

Sub S_RecordsetClose(ByVal rec As Recordset)
rec.Close
Set rec = Nothing
End Sub

2017/05/21(日) 23:12:50.81

>>122
テキトーに答えるけどByValで受け取った変数に
Set rec = Nothing
しても意味ないと思う

2017/05/21(日) 23:25:21.22

>>122
型の不一致の根本原因は　(wkR)　だと思われ

S_RecordsetClose wkR
か
Call S_RecordsetClose(wkR)
にしる

2017/05/21(日) 23:26:47.02

>>123
あ、、、、言われたらそうだ^^;。

それは確かにその通りで、この処理自体の問題だとは思うのですが、引数を受け取る段階で型が一致しないのはどうして？
ちなみにByRefでも同じなんですが。

2017/05/21(日) 23:34:14.77

>>124
リロってなかった
Call S_RecordsetClose(wkR)
でかつByRefにしました。
ありがとです。
動作についていまいちよく判ってないっす^^;

2017/05/22(月) 00:57:19.08

>>122
ADODB.Recordsetと、Recordsetの違いじゃないの？
Recordsetって複数あるから省略しちゃうとどれ指してるか分からなくなるぞ。

2017/05/22(月) 12:17:47.19

質問ですがVBAのプロパティやメソッドの扱い方について詳しい入門書はありませんか？
会社でマクロ使うため超入門（マクロの記録からつかうやつ）と学校で教わったプログラム知識（basicとc++）でなんとかやってるんですがやはりVBAの命令の扱い方が怪しく…
予算は2～3千円程度でお願いします

2017/05/22(月) 12:26:52.79

>>128
ExcelとAccessのVBAの本なら腐るほどあるからここで聞かなくてもググれば良い
Word、Outlook、PowerPointのVBAとなると日本語ではかなり少なくなるので教えるまでもなくググれば出てくる
ググって出てこないなら英語書籍やネットブログを漁るか、MSDNを直接参照することになるね

2017/05/22(月) 12:56:42.47

>>128
vbeでF2キー

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/22(月) 13:29:08.29

>>128
メソッドやプロパティの方から網羅的に学習するのはきついので、やりたいことの方から網羅的に
説明してる本の方がいいと思う。

たとえば、
『Excel VBA逆引き辞典パーフェクト』
http://www.shoeisha.co.jp/book/detail/9784798146584

似たような『○○700』みたいなのがいくつかあるから、どれか選んで流し見するのがいいと思う。

2017/05/22(月) 14:44:41.19

本なんて必要か?

多少の英語カがあればインテリセンスの中からそれっぽいもの選んで実験+Web検索で十分だろ。
あとは、インタフェースへのセンス(絶対この場合だったらこんなプロパティがある筈という嗅覚)とかね。

初心者だったら以下に気を付けてコード書くと良い。

・マクロ記録したらコードの中で必要無い部分をとことん削るのが常識と考えよう。
・それで動作確認して問題無いことを確めよう。
・削って問題無いと思っても、その場では問題無くても場合により問題出ることあるから削って残った部分をWeb検索で皆はどうしてるのかを確認しておこう。

・英語的にそのコードの意味を考えよう。
'A1を選択
Range("A1").Select

'選択したものの値を1にする
Selection.Value=1

だったら当然
'A1の値を1にする
Range("A1").Value=1
ということになる。

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/22(月) 15:17:01.68

>>132
そんな無駄な試行錯誤や調査を、たかだか2,3000円の本を読むだけで省略できるんだが。
入門書とか馬鹿にする人いるけど、たいてい>>132みたいな感じだね。

2017/05/22(月) 15:42:03.39

>>132
デジタルに調べる良さとアナログに調べる良さは別物だよ

アナログだと「調べるつもりもなかったけどたまたま見かけて使ってみたらいい感じになった」ってことはアナログならでは

2017/05/22(月) 15:47:18.44

色々意見ありがとうございます
うちの会社ネット禁止なので本に頼るしかない事情があるのです…
ネット可ならネット検索でやりたいのが本音です

2017/05/22(月) 16:20:04.11

>>135
開発環境だけでなくどこからもネットに繋がらないというなら会社に文句をいうべき
煽りではなく

2017/05/22(月) 18:00:49.91

>>133
その試行錯誤が無駄かどうか長期的に考えれば分からない

2017/05/22(月) 18:15:29.31

業務なのか自主的なのかで話が変わってくると思うけど、
VBAいじるのにネット無しは辛いなぁ。

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/22(月) 18:29:46.83

>>137
書籍で基本的な知識を学んだ後でも、試行錯誤はするでしょ。
その試行錯誤には意味がなく、>>132のような試行錯誤には意味があるという主張？
だとしたら、それは自分で勝手にやってくださいと言うしか。

2017/05/22(月) 18:56:05.69

おおむかしは、FAXでMicrosoftから資料を引き出していたものじゃ
先ず、目次を引っ張れるFAX番号に掛けて、延々何十枚もの目次をげっと
その目次から欲しい機能を探し出し、今度は欲しい機能のFAX番号へ掛けて
これまた延々と資料を文字通り引きずり出しておったわ

よく覚えてないけど、そんなかんじ
その頃のFAXはB4の感光紙で、うっかり陽の当たるところに置きっぱで
外出したりすると、帰社した時には真っ黒くろすけで愕然と膝から頽れたり

2017/05/22(月) 19:18:46.60

>>135
検索できるPCを用意してもらったほうが良い。もしくは自分で用意するか
ネットでその都度検索できないとあまりに効率が悪い

2017/05/22(月) 19:45:17.11

>>136
金融じゃ普通だぞ
いちいちググらないとコード書けないやつはお呼びじゃない

2017/05/22(月) 20:10:34.61

>>142
金融案件みたいなデスマーチの温床に言われてもww

2017/05/22(月) 20:13:17.75

>>142
金融業界にvbaでセコセコやってるやつなんでいねーよｗｗｗ
帳票システムは全部外注、ボタンひとつで出るようになってるんだよｗｗｗ
しかもエクセルよりアクセスの方が使用頻度が高い

岡三証券とかは知らんけど

2017/05/22(月) 20:44:19.38

なんかさあ…もう少しオープンに自分の無知をさらけ出そうぜ
無知ってそんなに悪いもんじゃないぜ？

2017/05/22(月) 21:21:30.49

>>142
金融でもいわゆるOA環境は与えられててネットは見れるだろ

2017/05/22(月) 23:25:21.82

>>139
どっちの試行錯誤も意味があるんじゃね
試行錯誤が無駄といったのはそっち

2017/05/22(月) 23:36:28.18

空白と重複をなくしたドロップダウンリストを作成したいんだけど、作業列つくらないと厳しいですか？
A列に重複がたくさんあるものから、重複を削除したリストをB2に追加したいですが、VBAでは厳しいですか？

2017/05/22(月) 23:39:29.41

>>148
繰り返しとifでいける

2017/05/22(月) 23:41:44.53

vba使い始めた頃はヘルプに結構お世話になったけどなあ
最近のバージョンだとオフラインのヘルプが入ってないからきついよね
>>128のバージョンもダメなやつなのかな

2017/05/22(月) 23:43:11.76

>>149
ループでリストってできるんですか！！知りませんでした。
例えば1～"A1に入力された数字"までのリストとかも可能ですか？？
A1に20とあった場合、1・2・3・4・5・6・・・・20といった感じで。

2017/05/22(月) 23:49:46.04

>>151
Sub Macro1()
arr = ""
For tmp = 1 To Cells(1, 1).Value
arr = arr & "," & tmp
Next
Cells(1, 1).Validation.Delete
Cells(1, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=arr
End Sub

>>148
vbaでもできるけど作業列作ったほうが早いと思う
俺なら作業列を使う

2017/05/22(月) 23:57:33.95

>>152
完璧すぎて鼻水でました
ありがとうございます

2017/05/22(月) 23:58:56.03

俺も作業列勧めるな
直値で入れると文字数の制限があるだろ

2017/05/23(火) 00:12:52.19

>>149
If 俺 = "イケメン" Then
　　俺 = 俺 & 彼女
End If

2017/05/23(火) 00:30:37.63

>>155
イケメンだったらおまえが消えて新しい命に書き換えられてしまうな

2017/05/23(火) 01:06:28.10

>>155
実行時エラー
型が一致しません。

2017/05/23(火) 01:16:03.77

>>157
酷過ぎﾜﾛﾀｗｗｗ

2017/05/23(火) 02:03:21.06

>>139
省略する人は試行錯誤を大してやらないよ。
答えを求める奴は結局身にならない。

昔、高校受験用に行ってた塾にいた天才共は英語の辞書を丸暗記してたが俺は天才じゃ無いので英語の使い方(しくみ)を勉強した。
プログラミングもしくみが重要で個々の単語は都度調べれば良い。

本は必要無いと思うけど有っても良いとは思うし、自分もかなり買う方だ。
でも自分が本を買うのは興味からだな。
あ、自分は今はVBAの本を買うことはありません。
初心者なら読んでおもしろそうだったら買ってみれば良いんじゃない?

2017/05/23(火) 06:24:30.98

多分その天才どもは英語の仕組みは既に把握したうえで、
上積みとして単語を丸暗記してるんじゃないか？
仕組みがエンジン、単語がガソリンと考えたら、
エンジンだけでもガソリンだけでも走れない。
効率の良いエンジンは少しのガソリンでも遠くまで走れるし、
沢山ガソリン積めれば少々お粗末なエンジンでもやっぱり遠くまで走れる。
どっちが大事じゃなくて両方大事。

2017/05/23(火) 06:30:19.51

試行錯誤する事で答えが判らない事を解決するスキルが身につく
このスキルはVBAにとどまらない
他のことにも応用できる

2017/05/23(火) 06:50:44.94

本は嘘が書かれてたりするから厄介

想定読者の知識レベルに合わせる理由でいろんな説明を端折ってミスリーディングな表現になってしまってたりするし、著者の知識が根本から間違ってるときもある

2017/05/23(火) 07:27:49.86

結局身に付かないから自分で調べろとかw
ここで聞くってことは理解したいんじゃなくて答えが知りたいだけなんだよ
教える気がないなら黙ってろ

2017/05/23(火) 07:34:02.08

>>163
勉強の仕方の話だよ
回答はする

2017/05/23(火) 10:12:46.48

>>163
ほら、これが弊害だ。
きちんとアンカー追っていけば初心者がどうやって勉強すれば良いかの話から来てるのがわかる筈。

直近のレスだけ見るような手っ取り早さを求めるような奴には教えても無駄になるだけだ。

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/23(火) 10:34:38.44

>>159
一生、
> Range("A1").Select
> Selection.Value=1
> Range("A1").Value=1
みたいなレベルを手探りで探し出すようなことやってろよ。誰にも迷惑かからないし。
だが、人には勧めるな。

2017/05/23(火) 11:06:55.30

>>166
それが分からないようじゃレベルがうかがいしれるねw
というか、あれを書いた俺がそんなレベルに無いことなんて想像も出来ないのか?

多少出来る奴なら誰でもマクロ記録のままのゴミコードを否定するだろうよ。

2017/05/23(火) 11:58:25.09

>>167
時間が無駄だってことだと思う
お前の技術レベルの話じゃない

物事には期日があるんだからそんなどうでもいいことに時間使うんなら本買った方がいい

2017/05/23(火) 12:01:49.66

>>167
コミュ障技術者にありがちなバランス感覚の無さだな
VBAを理解する事が目的じゃないんだよ

2017/05/23(火) 12:06:29.03

Validationて何だ？
と思うくらいExcelのオブジェクトのことを知らない。
VBAばっかりだからなあ

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/23(火) 13:08:14.56

>>167
> というか、あれを書いた俺がそんなレベルに無いことなんて想像も出来ないのか?
お前のレベルなんか知ったこっちゃない。

> 多少出来る奴なら誰でもマクロ記録のままのゴミコードを否定するだろうよ。
ケースバイケースだし、議論する価値ない話題だね。

2017/05/23(火) 13:09:17.49

友達じゃあるまいしな

2017/05/23(火) 13:19:37.53

>>168
それは答えが判ってる事にしか使えない
仕事では誰にも答えが判らない事を解決する事も多い

答え合わせができる問題で訓練した方が良い

2017/05/23(火) 13:26:08.31

答えが判ってることを効率的に片付けるには
答えを聞いたり調べれば良いけど

答えが判っていない新しいことを実現するには
その方法は使えない

自分で考えずに答えを求める事が
日本でイノベーションとかが比較的少ない原因かもな

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/23(火) 13:29:05.48

新しい何かを始めるにあたって、入門書を読むとこから始めるのが「答えを求めること」なのか

2017/05/23(火) 13:36:08.12

そして、答えはひとつだけでは無い

2017/05/23(火) 13:40:08.67

>>176
答えは一つじゃないから
入門書にこだわる必要はないな

入門書は何のために読むの？
小説か何か？
自分が判らないことの答えを知るためじゃないのか？

2017/05/23(火) 13:47:15.75

>>168
>>169
>>171

>一生、...みたいなレベルを手探りで探し出すようなことやってろよ。

に対してのレスだからコミュ障はオマエラだよ。
そもそもの話のはじまりは>>128だから具体的な案件で期日が既にあるという話じゃない。

コミュニケーションの取れない奴はこれだから困る。

**デフォルトの名無しさん** (JP 0H16-cm4/) · 2017/05/23(火) 13:56:20.46

>>178
この流れのそもそもの始まりは、>>128に対して>>132みたいなレスをしたからだ。

そもそも>>128は、おすすめの入門書を聞いてるんだよ。
それを本なんか不要とするからこうなった。

2017/05/23(火) 14:43:29.82

お勧めの本は知りません
をやたら回りくどくやるのなw

2017/05/23(火) 15:12:36.24

>>180
マは性格捻くれたクソ野郎が多いからｗ

2017/05/23(火) 16:36:03.71

たしかに>>132はクソレスだな
質問スレなんだから、素直におすす目入門書を挙げれば済む事

2017/05/23(火) 18:13:36.59

横レスだけど128の質問も少し違和感がある。
"詳しい入門書"というのはなかなかないんじゃないか。

128は少なくとも全然vbaが分からないわけでわなくプロパティやメソッドの使い方が難しいと言ってるわけだから求めてるのはもはや入門レベルとは思えない。
感覚としては優しく丁寧に書いてある、という意味かもしれないが。

2017/05/23(火) 18:22:11.37

>>173
それは設計の話だな
実装からスタートする案件だとしたら話は変わってくるけど、、、

2017/05/23(火) 18:45:32.25

早く教えて挙げて

2017/05/23(火) 18:53:06.25

>>131

2017/05/23(火) 20:04:53.74

逆引き系の本てやりたい事がズバリ書いてある事ってどんだけあるの？
本当に使えるのかいまいち信用できん

2017/05/23(火) 20:24:44.89

星君の業務改善でいいじゃん

2017/05/23(火) 20:25:40.01

逆引きは、逆引きがいらない事に気づかせてくれるありがたい本だよ

2017/05/23(火) 20:59:03.89

そう、誰も、
本を
読んでいないのである・・・

2017/05/23(火) 21:24:06.93

勤務表を作りたいと考えています
A1からの各セルにA1勤務開始時間、A2勤務終了時間、A3休憩時間と入れたら
A4からの各セルにA4割増無の勤務時間、A5８時間以上の勤務時間、A6休日労働時間、A7深夜労働時間
とVBAを使用して入れたいのですがA7に入れる深夜労働時間の求め方が思い浮かびません
深夜勤務は22：00～5：00の間なのですが21：00～4：00、18：00～6：00みたいな勤務の場合どうやって深夜労働時間を求めればいいのでしょうか？

2017/05/23(火) 21:35:35.13

>>191
就業規則をよめ

2017/05/23(火) 21:41:04.89

昔作ったなぁ

まず概念として、
0-5,5-22,22-29,29-46
と4つの区分に分ける。0-5と22-29を分けるのが味噌。一緒にするとややこしくなる
俺は甲時間　乙時間　丙時間　丁時間と名付けていた

入力は3項目じゃなく6項目。
出勤、退勤、甲乙丙丁それぞれいつ休み時間を取ったかわかるようにする

残業代は労働時間の合計-8時間になり、
休日は休日フラグを作り、勤務時間*割増分を別枠で付ける。

で、
21：00～4：00の場合の考え方は
開始時間が5:00以前なら5:00△開始時間が甲時間（仮）。終了時間が5:00以前なら更に5:00△終了時間を甲時間（仮）から引く。これが甲時間。今回は0
乙時間も似たような感じで、開始時間が5:00~22:00なら22:00△開始時間が乙時間（仮）。終了時間が22:00以前なら更に22:00△終了時間を乙時間（仮）から引く。これが乙時間。今回は1:00
あとは丙時間、丁時間も同じように求める

個人的には関数の方が修正しやすい、見通しも良いで作りやすいと思う

>>192
無能の自己紹介はいらないよぉ

2017/05/23(火) 21:41:20.14

>>193は>>191へのレスね

2017/05/23(火) 22:01:45.26

以前、ここでシフト表を作りたいって人がいて、んで別スレまで出来てあれこれ皆が頑張っていたけど、途中で多分本人がやる気なくしてw
アボンだったな

2017/05/23(火) 22:07:18.85

>>193
残業代(金額)が、労働時間-8時間(時間)
とかw

好意的に解釈して残業代じゃなくて残業時間だとしても
-8時間かどうかは就業規則を読まないと判らないだろ

2017/05/23(火) 22:34:24.97

>>191
timevalue関数はご存知かな？
日時の時間部分だけをDate型に変換してくれるけど、Date型の値は24時間(=1日)を1とした数値として扱える。
以下、日付を跨ぐ値は1(=24時間)を足してます。

深夜開始 = TimeValue("22:00:00")
深夜終了1 = TimeValue("5:00:00")
深夜終了2 = TimeValue("5:00:00") + 1
出勤 = TimeValue(Range("A1").Value)
退勤 = TimeValue(Range("A2").Value)
If 出勤 > 退勤 Then 退勤 = 退勤 + 1
休憩 = TimeValue(Range("A3").Value)

労働時間 = 退勤 - 出勤 - 休憩
深夜労働時間 = IIf(出勤 < 深夜終了1, 深夜終了1 - 出勤, 0)
If 出勤 < 深夜終了2 And 退勤 > 深夜開始 Then
深夜労働時間 = 深夜労働時間 + IIf(退勤 < 深夜終了2, 退勤, 深夜終了2) - IIf(出勤 > 深夜開始, 出勤, 深夜開始)
End If

たぶんこんな感じ。
出勤表なんて作ったことないからテキトーですw
おかしかったら誰か直して～

2017/05/23(火) 22:55:16.52

?cells(1,1).Address
で絶対参照の$A$1は取得できますが、
行のみ相対参照の$A1を取得する方法はありますか？

2017/05/23(火) 22:59:09.40

それくらいヘルプ見れ
https://msdn.microsoft.com/ja-jp/library/office/ff837625.aspx

2017/05/23(火) 23:08:02.98

>199
ありがとうございます、解決しました