1001コメント350KB

Excel VBA 質問スレ Part32

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

2013/10/07(月) 22:19:55.86

ExcelのVBAに関する質問スレです

★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。

★2 ExcelのVBA以外の部分に関する質問はNGです。
　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。

★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。

　VBAとは､『Visual Basic for Applications』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。

★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、
　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。

★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R）

前スレ:Excel VBA 質問スレ Part31
http://toro.2ch.net/test/read.cgi/tech/1376371376/

関連スレ：VBAなんでも質問スレ
http://toro.2ch.net/test/read.cgi/tech/1342087380/

0638デフォルトの名無しさん

2014/02/05(水) 09:39:16.44

>>637
入れ替え入れ替えとあなたおっしゃったけどね
その入れ替え自体のアルゴリズムも考える必要があるんです
あなたとは違うんです

0639デフォルトの名無しさん

2014/02/05(水) 10:44:19.76

本当の乱数は、同じ数字ばかり何回も続けて出たり、1・2・3・4と順番に出ることだってある
あらゆる可能性が平等なのが乱数

だから「よく混ざる」ってのは乱数の定義と矛盾する
それは本当の乱数ではなく、乱数のうちの1パターンを人間の意思で選んでいる(または拒否している)
人の意思が入った時点でそれは乱数ではなくなってしまう

0640デフォルトの名無しさん

2014/02/05(水) 14:22:39.33

>>639
袋に最小から最大の数字を各々書いた玉があって
それを戻さないで取っていくとどうなるかを
コンピュターの乱数機能を利用して実現してるだけだから
そんな乱数の定義とは関係ない。

0641デフォルトの名無しさん

2014/02/05(水) 16:07:27.16

答え出たね！

0642デフォルトの名無しさん

2014/02/05(水) 16:16:06.35

ソース（n）
For i To n
ソース（i）＝ i
Next
while n ＞ 0
データ（i）＝ソース（random）
n ー 1
i + 1
LOOP

0643デフォルトの名無しさん

2014/02/06(木) 04:12:42.33

「乱数自体の数値を得る」ではなく
「乱数を使って並べ替える」みたいなものだからな

0644デフォルトの名無しさん

2014/02/06(木) 10:46:18.47

「ランダムに選ぶ」のと「乱数」は違う

前者の場合、もし最初に引いたのが「1」だったら、2回目は1が出ないことが確定してしまう
乱数なら次も1になる可能性がある

数学的に言えば確率論の中の順列の問題
ビンゴとサイコロの違いと言えばわかりやすい
質問者がわかってない

0645デフォルトの名無しさん

2014/02/06(木) 13:55:18.98

そろそろ別の所でやって

0646デフォルトの名無しさん

2014/02/19(水) 17:38:52.21

Sub xからyのz個の乱数重複なし()
Const x As Long=0,y As Long=1000000,z As Long=500000
Dim i As Long,j As Long,k As Single,bool As Boolean,Flag(x To y) As Boolean
'処理
Randomize
Do
bool=z>j
If bool Then k=(z-j)/(y-x-j+1) Else k=1-z/j
For i=x To y
If (Flag(i) Xor bool) And Rnd<=k Then
Flag(i)=Not Flag(i)
If Flag(i)Then j=j+1 Else j=j-1
EndIf
Next
Loop Until j=z
'表示
j=1
For i=x To y
If Flag(i)Then
ActiveSheet.Cells(j,1).Value=i
j=j+1
EndIf
Next
End Sub

0647デフォルトの名無しさん

2014/03/05(水) 07:35:56.11

http:〃20m.ziploader.net/dl.phpx?id=ziploader2062
★zipファイルの「阪神近鉄無」フォルダー以下
「平成25年12月」「平成25年11月」の数値未発表で一部合計値比較不可能の為
　平成25年10月～平成13年4月は以下路線の各駅を合計・増減から除外して再計算。
　「阪神」─「本線」「なんば線」
　「近鉄」─「難波線」「大阪線」「南大阪線」
★zipファイルの「阪神近鉄有」フォルダー以下
　除外せず、「平成25年12月」「平成25年11月」の未発表数値を前年同月と同一と仮定

0648デフォルトの名無しさん

2014/03/06(木) 23:19:40.48

質問させていただきます。

B600に関数が入っていて
B601には空白です。
B602にも関数が入っていて
B603は空白です。

こんな感じで、Bの1700行まで関数が一行置きに入っているのですが、セルの結合を二行ずつしたいと思っています。
どういう風な記述になりますでしょうか？

0649デフォルトの名無しさん

2014/03/07(金) 00:11:16.39

>>648
For r = 600 To 1700 Step 2
　Range(Cells(r, 2), Cells(r + 1, 2)).Merge
Next

0650デフォルトの名無しさん

2014/03/07(金) 00:51:11.60

>>649
ありがとうございます！！！

もうひとつお聞きしたいのですが、、、

0651デフォルトの名無しさん

2014/03/07(金) 01:01:27.94

Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(Target.Row, "E").Value = "新" Then
Application.EnableEvents = False

On Error Resume Next
If Not (Intersect(Target, Range("H:H")) Is Nothing) Then
Cells(Target.Row, "G").Value = (1 - Cells(Target.Row, "H").Value) * Cells(Target.Row, "F").Value

End If

Application.EnableEvents = True

End If
End Sub

0652デフォルトの名無しさん

2014/03/07(金) 01:04:46.69

H列に数値を入力したらG列に計算結果を表示するのですが、切り捨てにするにはどうすればよろしいでしょうか？

0653デフォルトの名無しさん

2014/03/07(金) 07:39:53.10

vba 切捨てでぐぐればいっぱい出てくる

0654デフォルトの名無しさん

2014/03/07(金) 08:25:53.28

VBの丸めは五捨六入だっけ？銀行丸めっつうの？
どハマりして結局関数を作った記憶があったようななかったような

とりあえず、G列はH列を参照するのならG列にエクセル関数を入れればいいよ

あとお節介だけど、プログラムが全く理解できてないみたいだけど、知識をつける必要がないのなら構わないけど、自分で調べた方がいいよ

0655デフォルトの名無しさん

2014/03/12(水) 01:22:26.84ID:x9JPMObJ

無いに決まってるから聞いてんだろ。
おせっかいウザイ。さっさと回答くれ。

0656デフォルトの名無しさん

2014/03/12(水) 01:45:28.79ID:ZXRx46ei

IDつけたのか
てすてす

0657 【9.6m】

2014/03/12(水) 01:46:00.18ID:ZXRx46ei

にょろーん

0658デフォルトの名無しさん

2014/03/12(水) 11:47:45.36ID:4Vi2bcOW

>>657
コラ。にょろーんとするな。

0659デフォルトの名無しさん

2014/04/03(木) 10:09:06.33ID:Eig24VSK

セルのプロパティでFormulaやFormulaR1C1はどんな使い方をするのでしょうか？
いまいちよくわからないのですが。

0660デフォルトの名無しさん

2014/04/03(木) 10:15:53.71ID:4gfcVwhu

>>659
VBAからワークシートの数式を書き換えることができる
オートフィルでは思った通りに変化してくれないような時に、VBAを使って数式を自動生成する

0661デフォルトの名無しさん

2014/04/03(木) 10:29:44.67ID:Eig24VSK

>>660
なるほどありがとうございます。
でもどう使いますか？

単に
Cells(r,c)="=IF(B1=C1,D1,E1)"
と書くのと
Cells(r,c).Formula="=IF(B1=C1,D1,E1)"
と書くのでは違うということでししょうか？

VBAでも自動でオートフィルしてくれますか？たとえばRange("A1:A100")="=B1*100"とすればA100セルは"=B100*100"になってる？

0662デフォルトの名無しさん

2014/04/03(木) 10:30:42.30ID:Eig24VSK

このへんの仕組みというか仕様を超わかりやすく解説してくれてるサイトか本みたいなのがあれば世の中が過ごしやすくなってよいのですが・・・

0663デフォルトの名無しさん

2014/04/03(木) 11:19:42.03ID:Mk1UvHnq

スレチだったら誘導してください。ごめんなさい。

EXCEL2013を導入したのですが
わずかでも数式がある場合に、数行でもコピペで貼り付けすると
再計算（プロセッサ4個）：N%などと、時間がかかるのですが、解決方法はありますか？

検索で調べてみても、過去情報ばかりでヒットできません。
環境の問題では無いと思ってるのですが、必要であれば指示してください。

0664デフォルトの名無しさん

2014/04/03(木) 11:23:35.99ID:Mk1UvHnq

連投すみません。

Workbooks(".xlsm").Activateですが、SDIの影響でWorkbook_Openに記述してもうまく機能しません。
情報はいくつか検索できましたが、解決していないように見えます。
いい方法ありますか？

0665デフォルトの名無しさん

2014/04/03(木) 11:49:55.12ID:4gfcVwhu

>>661
その例では混乱することは少ないだろうけど、数式が文字列変数に入っていた場合は
あとでコードを見返した時にセルに何を入れているのかわからなくなる可能性があるので
プロパティは省略すべきではない

また、逆にセルから数式を読み出したい時はプロパティを省略できない

0666デフォルトの名無しさん

2014/04/03(木) 12:42:08.56ID:Eig24VSK

>>665
それは
myVal=Cells(r,c).Formula="=IF(B1=C1,D1,E1)"
または
myVal=Cells(r,c).FormulaR1C1="=IF(B1=C1,D1,E1)"
で代入した場合には
変数の型は必ず文字列であり内容も文字列ということですか？

0667デフォルトの名無しさん

2014/04/03(木) 13:19:19.03ID:4gfcVwhu

>>666
質問の意味が不明
それからコードがおかしい
それではmyValにBoolean型が代入されてしまう
正しくは

myVal = "=IF(B1=C1,D1,E1)"
Cells(r, c).Formula = myVal

など
myValはString型

0668デフォルトの名無しさん

2014/04/03(木) 14:10:31.38ID:Eig24VSK

>>667
あ、式はたしかに＝が2つあって間違ってました。

でも

------------------------------
Sub Unko()
myVal = "=IF(B1=C1,D1,E1)"
ActiveCell.Formula = myVal
Debug.Print ActiveCell.NumberFormat
End Sub
------------------------------

これで試してみると
文字書式はgeneralとでるよ。@じゃなくて。

0669デフォルトの名無しさん

2014/04/03(木) 15:59:16.02ID:4gfcVwhu

>>668
根本的にわかってない
セルの書式と代入する値の型は無関係
それから下品な名前は使うな
俺はそういうのが嫌いだからもう教えない

0670デフォルトの名無しさん

2014/04/03(木) 16:16:33.02ID:Eig24VSK

(^ _ ^)

0671デフォルトの名無しさん

2014/04/05(土) 20:03:54.99ID:eYN2DOjD

VBAをVBE以外で書きたいんですけれども、誰かVBE以外のエディターで開発されてる方いますか？
いる方は、何をお使いになってますか？

VBEで以下の不満があり、関数のアウトライン機能がないこと、列挙体変数をTabで選択せずそのまま入力するとその入力された変数名に変更されてしまうなどがあり、困ってます

0672デフォルトの名無しさん

2014/04/05(土) 20:52:49.41ID:vxn3S8/H

>>671
VisualStudioのVBのエディターで書いてからコピペとかたまにやるけど常用はしてない
普段は普通のテキストエディター

0673デフォルトの名無しさん

2014/04/06(日) 00:14:11.80ID:6QPkQ4Uq

>>672
なるほど、確かにVSのアウトライン機能は便利ですもんね…
でもアウトライン機能を常用出来るようなテキストエディタはやはりないんですかね
ありがとうございます。

0674デフォルトの名無しさん

2014/04/06(日) 20:31:36.34ID:SRPo3hu2

arduinoからのシリアルデータをexcelに自動で書き込んでくれるvba作ったのですが
なぜか途中で入力セルが勝手に変えられてしまいます

MSComm1.InputMode = comInputModeText
rdat = MSComm1.Input2
Sheet3.Cells(InputRow, 11) = rdat　//シリアルデータをセルに入力
InputRow = InputRow + 1

1023,964
と入力されるべきところになぜか
1
23,964
とか
12
3964
になってしまいます

似たような方いらっしゃらないでしょうか

0675デフォルトの名無しさん

2014/04/06(日) 21:05:33.20ID:X8q2hYwd

>>674
オーバーランしてるんじゃねーのか？
まずは、Debug.Print rdat して、読み取りがおかしいのか、セルが書き変わってるのか切り分けなよ。

0676デフォルトの名無しさん

2014/04/06(日) 21:38:35.38ID:SRPo3hu2

>>675
イミディエイトには
511,476
511,476
5
11,476
となってるので読取がおかしくなっているようです

0677デフォルトの名無しさん

2014/04/07(月) 00:32:05.86ID:6QjlBT3T

MSComm1.InputMode = comInputModeText
rdat = MSComm1.Input2
Debug.Print rdat
を実行した結果が↓のようになりました

510,475,442,413,392,379,337,325であるべきところが
510,
475,442,413,392,379,337,325
となってしまいます
いつも起きてるわけではなく９割ぐらいがこうなります
送られてくるデータは最大40文字の文字列なのでStringの容量からはみ出ることはないのですが・・・

rdatからReplaceを使ってvbCrやvbLfを置換しても文字列の改行はなくなりませんでした・・・
これはもうMSCommの仕様でしょうか

0678デフォルトの名無しさん

2014/04/07(月) 01:09:45.66ID:cIwL+5uV

>>677
バイナリで改行コードをチェック

0679デフォルトの名無しさん

2014/04/07(月) 18:12:05.76ID:NRYmRN39

バイナリで保存してみたところ中身に改行コードはありませんでしたが
テキストファイルで保存すると改行されています

0680デフォルトの名無しさん

2014/04/07(月) 19:44:01.79ID:cIwL+5uV

改行される部分に改行以外の何かのデータが入ってない？
文字列の先頭から文字コードを順番に表示させてみ

0681デフォルトの名無しさん

2014/04/09(水) 02:10:23.95ID:Zgg01Tu3

IIF(data=0, 0, 1/data)
dataが0だとエラーになります。回避するには大人しくIf elseにするくらいしかないですか？

0682デフォルトの名無しさん

2014/04/09(水) 02:48:42.35ID:rPGWVgOi

>>681
回避する方法はほかにもある
たとえばOn Errorとか、IIfの入れ子とか
Ifで書く場合もElseは必須じゃないし

0683デフォルトの名無しさん

2014/04/09(水) 02:59:54.43ID:BMFTF5hJ

>>681
VBAはショートサーキットしないから、素直にIFネストしといたら良いんじゃね
セルに計算式埋め込んでIfErrorとかIsErrorとか使えば何とかなるかもしれんが

0684デフォルトの名無しさん

2014/04/09(水) 03:30:52.75ID:rPGWVgOi

>>683
今回のIIfのエラーとショートサーキットは関係ない
IIfは単なる関数だから、呼び出し前にすべての引数が評価されるだけのこと

0685デフォルトの名無しさん

2014/04/09(水) 04:08:35.13ID:Zgg01Tu3

レスありがとうございます。
IIFの入れ子だけでエラー回避出来るんですか？思いつかないです。ヒント下さい。

0686デフォルトの名無しさん

2014/04/09(水) 04:18:43.85ID:rPGWVgOi

>>685
ヒントは>>684
IIfは関数だってこと

まず機能限定でいいからIIf関数を自分で作ってみ

0687デフォルトの名無しさん

2014/04/09(水) 05:58:06.04ID:eVaBF0ya

>>681
0除算の時どうしたいかによるけど、
1/dataの部分を、たとえば
dataが0なら0を返却する様な
関数をかませる方法もあるよ。
ただ、
処理の遅いiifをそこまでして使うほどのメリットを感じないけど。

0688デフォルトの名無しさん

2014/04/09(水) 17:55:19.77ID:rPGWVgOi

>>687
元の質問>>681によると、data=0の時は結果も0にしたいようだ
俺も素直にIfで書いた方がいいと思うけどな

0689デフォルトの名無しさん

2014/04/11(金) 12:28:29.65ID:yZ8wKwaw

sheet1にボタン1を配置したんですがボタン1_click()を標準モジュールではなくsheet1のシートモジュールとして書くことは出来ないのでしょうか？

0690デフォルトの名無しさん

2014/04/11(金) 14:48:21.85ID:z4/PIhu7

>>689
Sheet1モジュールに Sub ボタン1_click() を書いてボタンに登録
Privateにしたければボタンに登録後に Private Sub ボタン1_click() と Private を追加しておく。

またはSheet1モジュールに Private Sub ボタン1_click() を書いてからボタンのマクロ名に「Sheet1.ボタン1_click」と手書きする

0691デフォルトの名無しさん

2014/04/15(火) 04:16:36.29ID:A/HjwMLt

モジュールレベル変数やプロシージャレベルのstatic変数をリセットするため
マクロが実行終了してもモジュールがリセットされない限り値が残っているので
強制的にモジュールをリセットしたいです。どうすれば良いですか？

0692デフォルトの名無しさん

2014/04/15(火) 06:26:32.57ID:rPikCPob

>>691
Excelを再起動するか、変数を初期化するためのプロシージャを用意する

0693デフォルトの名無しさん

2014/04/15(火) 10:36:04.14ID:5oqUCn8p

プロシージャレベルのstatic変数って
なんのために／どういうときに、使うんですか？

0694デフォルトの名無しさん

2014/04/15(火) 11:37:46.86ID:9lgaoMnA

>>693
スコープはそのプロシジャでいいが、寿命がプロシジャと同じでは困る時
たとえばそのプロシジャが呼ばれた回数を数えるときとか便利

0695デフォルトの名無しさん

2014/04/15(火) 11:53:56.64ID:5oqUCn8p

>>694
それならstaticとか変な概念を1つ導入するなんてことはせず
モジュールレベルの変数を使ったら良くないですか？

マッチ1本火事のもと。
あたらしい概念の導入は混乱のもと。

0696デフォルトの名無しさん

2014/04/15(火) 12:47:45.68ID:rPikCPob

>>695
新しい物に順応できないジジイは死ぬまでアセンブラだけ使っててくだちい

0697デフォルトの名無しさん

2014/04/15(火) 13:41:44.59ID:9lgaoMnA

新しい概念って
static変数はVBがオブジェクト指向になる以前からあるんだがな

0698デフォルトの名無しさん

2014/04/15(火) 14:08:55.72ID:s8o/Oo49

別なエクセル立ち上げて操作すると動作がおかしくなるvbaなんか糞だろ

0699デフォルトの名無しさん

2014/04/15(火) 16:22:28.15ID:820VGCAb

じゃ、使わなければいいじゃん

0700デフォルトの名無しさん

2014/04/15(火) 16:26:47.79ID:rPikCPob

欠点のない言語、環境なんて存在しないのにね
叩きたいだけだろ

0701デフォルトの名無しさん

2014/04/15(火) 23:40:57.35ID:Qecud56U

メソッド内のstaticなんて
C++にはあるけどJavaにもC#にも無いんだから
むしろ時代遅れの概念だろ。

0702デフォルトの名無しさん

2014/04/16(水) 04:06:05.87ID:LmxlsNa2

>>692
「このアクションを実行するとプロジェクトがリセットされます。実行しますか ?」
このメッセージが出るようなコードを最初に強制的に行いたいのですが出来ませんかね。

>>693
再帰のときとかに使ってます。

0703デフォルトの名無しさん

2014/04/16(水) 08:30:53.84ID:C8nNiAQg

>>701
> C++にはあるけどJavaにもC#にも無い

バカには使いこなせないということ (w

0704デフォルトの名無しさん

2014/04/16(水) 12:19:39.65ID:XF2c1vIX

>>702
プロジェクトをリセットする方法は色々ある
基本的なことはここを参考に
http://www.moug.net/tech/exvba/0150116.html

0705デフォルトの名無しさん

2014/04/16(水) 23:01:53.26ID:2LoKKqcV

>http://www.moug.net/tech/exvba/0150116.html
>モジュールレベル変数の値が消えるとき

パブリック変数にしてた文字列が消えていたのはこのせいだったのかよーー

0706デフォルトの名無しさん

2014/04/17(木) 01:26:29.86ID:hQgHTHar

ふと思ったんだけどさ、
Staticな変数ってクラスモジュールの
プロシージャで使ったらどんな動きするんだろ。
インスタンスごとに別々に用意されるのか、
それとも同じクラスで生成されたインスタンスのは参照先が同じになるのか。
後者だったら何か新たな使い道が生まれそうだけど、
それはそれでまた混乱の素になりそう。

0707デフォルトの名無しさん

2014/04/17(木) 01:55:46.12ID:oM/c/OYP

>>705
それはプライベットだぞ。
パブリックじゃないぞ。

というわけで、標準モジュールでの
プライベット変数とパブリック変数の
その使い方と使い分けや、注意すべきこと、どういうときにどれを使うかなど
その使用方法について詳しく教えていただけないでしょうか？

0708デフォルトの名無しさん

2014/04/17(木) 02:24:20.93ID:jEbNeAxo

2回書いてるからミスタイプじゃなくて間違えて覚えてるパティーンか

0709デフォルトの名無しさん

2014/04/17(木) 03:33:46.78ID:fX81VMtB

>>704
>既存の標準モジュールやUserFormを解放(削除)すると、確認メッセージは表示されずにモジュールレベル変数の値がクリアされます。

そのページで手動ではない方法で実現出来そうなのは
実際には使わないダミーのモジュールをインポート後、すぐエクスポートしてプロジェクトをリセットするくらいですかね？
どうもありがとうございました。

0710デフォルトの名無しさん

2014/04/17(木) 03:43:12.52ID:fX81VMtB

エクスポートじゃなくて解放でした。

0711デフォルトの名無しさん

2014/04/17(木) 14:24:23.33ID:oM/c/OYP

上記のことを総合判断するに
VBAで複雑なプログラミングをするときは
グローバル変数は使わずにどこかのセルに値を保存しておいたほうがよいということで
ファイナル認識でokか？

0712デフォルトの名無しさん

2014/04/17(木) 15:57:50.88ID:jEbNeAxo

複雑なプログラムはVBAじゃなくて、せめてVBを使っといた方が、開発効率、処理効率、いずれも上

0713デフォルトの名無しさん

2014/04/17(木) 16:50:13.82ID:oM/c/OYP

じゃ
上記のことを総合判断するに
VBで複雑なプログラミングをするときは
グローバル変数はちゃんとリセットされずに値は保存されたまま使えるということで
ファイナル認識でokか？

0714デフォルトの名無しさん

2014/04/17(木) 18:10:20.16ID:f4TQPtNf

vbaでopenofficeエクセルの出力出来ませんか？

0715デフォルトの名無しさん

2014/04/17(木) 19:03:25.75ID:GGrT4rnZ

openofficeエクセル

↑何これ？

0716デフォルトの名無しさん

2014/04/17(木) 23:11:26.77ID:K2VamZAF

GNU Public Excelのことじゃないの？

0717デフォルトの名無しさん

2014/04/18(金) 18:57:42.82ID:P9dU51g+

openofficeエクセルの出力ってどういう事？

0718デフォルトの名無しさん

2014/04/18(金) 20:27:06.81ID:pSxMtBxF

office2007以降のxml形式だろ

0719デフォルトの名無しさん

2014/04/20(日) 10:29:25.89ID:LlR3PaQL

仕事でVBAつこてます。

コードを書いてるときや編集してるとき
画面が狭くモニターがあと縦横2倍、面積4倍くらい以上に大きくしてほしいとよく思います。

こんなとき役に立つツールみたいなのはないですか？

0720デフォルトの名無しさん

2014/04/20(日) 11:23:23.90ID:DYddObWG

マルチモニタで表示

0721デフォルトの名無しさん

2014/04/20(日) 11:52:54.77ID:YSeiuWKu

>>719
仮想デスクトップか。表示域そのものを広げたいなら、
モニタ買い替え又はどこかからモニタを調達してきて>>720。

VBAでどうこうできる問題ではないと思う。

0722デフォルトの名無しさん

2014/04/20(日) 13:42:35.59ID:kzevG+UG

>>719
表示される行数、文字数を増やすには、画面を大きくするか字を小さくするしかない
どっちがお望み？

画面を大きくするにはモニターの買い換えか増設、ソフトでやるなら仮想デスクトップ
字を小さくするのは画面のプロパティをいじったり設定でモニターのdpiを上げたりVBEのフォントを変えたり
http://www.max.hi-ho.ne.jp/happy/YNxv1.html
テキストエディタを使ったり

0723デフォルトの名無しさん

2014/04/21(月) 00:23:00.62ID:+JF1MRhA

長いコード(500行以上)があって、可読性・メンテナンス性をあげるために、5つくらいのサブルーチンへの細分化を試みています。

つまり大元のSub Testの中を、
Test_Sub1、Test_Sub2、Test_Sub3、Test_Sub4、Test_Sub5くらいの5つの部分に分けるみたいな感じです。

しかしここで問題が。

Test_Sub1に分けても、大元のTestで宣言した変数がこのTest_Sub1の中でたくさん使われています。
改めてこのTest_Sub1内で変数を宣言すると
大元の変数とは全く関連のない新しい独立した変数とみなされますよね？
そうするとコードを分割して可読性・メンテナンス性を良くするのって不可能じゃないですか？

みなさんはこのへんはどうやってやってるんでしょうか？

0724デフォルトの名無しさん

2014/04/21(月) 00:36:42.27ID:UsKDZ0RZ

>>723
それは元の設計とか分け方が悪い
Sub1、Sub2なんて名前の付け方からしておかしい

きちんと機能ごとに分けて、処理内容がわかるような名前を付ける
機能が限定されれば必要な変数も限られるから、最小限の変数だけをプロシージャの引数として渡すようにする

0725デフォルトの名無しさん

2014/04/21(月) 00:48:02.52ID:+JF1MRhA

名前は仮としてここで出しただけで
当然ほんものは役割にちなんだ名前になってるよ。

やっぱり「最小限の変数だけをプロシージャの引数として渡す」というのが回答なんですね。
そんな気がしてたんだわ。

でもいまから改造するとしたら
もうすでに人間の内臓と血管と骨のように
変数やらなんやらが複雑に入り組んでるので
なにかすこしでも改変しようとすると
人間のたとえでは大出血で死亡してしまうように
コードでエラーが出まくったり全く意図してない動きをしそうですわ。

こういうようにならないようにするためには
ふだんからどういうコードを書くように心がけたらいいですか？

0726デフォルトの名無しさん

2014/04/21(月) 01:01:29.41ID:UsKDZ0RZ

>>725
普段からモジュールを小さく分けて変数のスコープも最小限にする

0727デフォルトの名無しさん

2014/04/21(月) 01:09:39.31ID:UsKDZ0RZ

>>725
コメントを入れたくなったら、その部分はプロシージャに分ける

っていうのは初心者にはわかりづらいかなあ
中級者になってくると「ここにはコメントを入れよう」って思うタイミングが必ず出てくるんだよね
経験上、コメントを入れておかないとあとで保守するのが大変になるぞ、って部分が
だんだんわかるようになってくる
そういう処理はプロシージャとして別にしておいた方が保守性が上がることが多い

0728デフォルトの名無しさん

2014/04/21(月) 08:41:09.76ID:Q9CWt8FH

>>726
ホントこれに尽きるよね。

0729デフォルトの名無しさん

2014/04/22(火) 01:28:33.70ID:DlZvN0RF

>>723
プロパティだけのクラス作ってそれを引数で渡せば最小限の引数で済むけど、
そもそも最初にどうすれば使い回しがきいて
且つ修正する時に他に影響を与えることなく
出来るだけ手を入れないような組み方が出来るか考えながら組まないと。
たまにデザインパターンの本とか読んでおけば少しは役に立つかもよ。

0730デフォルトの名無しさん

2014/04/22(火) 09:49:30.62ID:xWC4qOoO

>>729
デザインパターンの本とはどういう本ですか？
本当にプログラミングに関係する本ですか？

0731デフォルトの名無しさん

2014/04/22(火) 10:03:28.89ID:W0hXuU4O

疑問に思ったら人に聞く前に自分で調べようぜ

http://e-words.jp/w/E38387E382B6E382A4E383B3E38391E382BFE383BCE383B3.html
デザインパターン【 design pattern 】

プログラム設計時に起こる典型的な問題とそれに対する解決策を整理し、再利用できるようにまとめたもの。
1995年に出版された書籍「デザインパターン」の中で23のパターンが解説されたのをきっかけに広まった。
ソフトウェアを設計していると、多くのソフトウェアが共通して持っている機能や問題があることに気づくことがある。
それらの問題を解決するために毎回0から設計していては効率が悪いため、多くのプログラマは経験を積むうちに
「こういった問題を解決するには、こういう構造のプログラムを書けばいい」というノウハウを蓄えていくことになる。
それらのノウハウを他人が参照できるように明示的に整理したものがデザインパターンである。

問題と解決策とを一組として、「Stateパターン」などそれぞれに名前が付けられる。オブジェクト指向とパターン化との
相性がいいためか、オブジェクト指向プログラミングの分野で用いられることが多い。

0732デフォルトの名無しさん

2014/04/22(火) 10:03:51.12ID:o3KBIfuW

個人的にはデザパタをベースにしてリファクタリングでアジャイルに攻めて行くのが良いと思う。
何か一昔前の流行り言葉を並べただけの厨ニ病的発言に見えるけどマジオススメ。

でも、リファクタリングに関する本て無くなっちゃったよね。

0733デフォルトの名無しさん

2014/04/22(火) 11:41:19.93ID:z8WHMXPV

まさかExcel VBAのスレでデザパタを勧める奴を見るとは

0734デフォルトの名無しさん

2014/04/22(火) 11:48:32.57ID:Edo2b+/a

デザパタなんて、少なくともGOFのパターンのほとんどは時代遅れの設計で、
所詮はOOP初心者へのお勉強向けのものなんだから、
丁度いいくらいなんでないの。

0735デフォルトの名無しさん

2014/04/22(火) 12:55:30.89ID:z8WHMXPV

ムダに柔軟性の高い汎用言語のためのもの

0736デフォルトの名無しさん

2014/04/22(火) 13:47:36.00ID:0UJjYfLY

UFC 128 - : ジョン・ジョーンズ vs. マウリシオ・ショーグン
https://www.youtube.com/watch?v=wia_sFsAf6g

0737デフォルトの名無しさん

2014/04/22(火) 14:57:43.47ID:QveWaMVI

public declare function hoge "dll" (byval a as long) as long

とあるときに
引数 a に byval が付いてるときと付いてないときで動作は変わらないのですか？
あと関数そのものの戻り値にも byval とか byref とか書きたいのですが
どこに書けばよいのかわかりません＞＜

■ このスレッドは過去ログ倉庫に格納されています