1001コメント371KB

Excel VBA 質問スレ Part14

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

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

2010/01/06(水) 12:34:58

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

2010/01/20(水) 11:49:54

これからVBA勉強始めようと思うんですが、
プロのエンジニアでもプログラマでもなく、
JAVAの入門書を一冊読んでいる程度の者です。
テンプレにあるExcelのインスタンスの意味を教えてもらえないでしょうか？
一応、クラス、オブジェクト、インスタンスというのは知っているつもりです。

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

2010/01/20(水) 11:55:58

>>74
100万回ぐらいまわして自分で計測してはどうでしょう
一括の方が早いと思う
>>75
エクセルのbookオブジェクト、もしくはアプリケーションのことじゃないか
要するにvbだけでできることはvbスレいけってことですね

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

2010/01/20(水) 14:13:43

エクセル上に、画像ファイルとテキストファイルを読み込むボタンをそれぞれ
配置して、ファイル読み込みダイアログを出して選択されたファイルを
エクセル上に表示させたいんだけど、誰か分かる人いる？

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

2010/01/20(水) 14:19:19

いる

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

2010/01/20(水) 14:19:39

皆んな分かる

008077

2010/01/20(水) 14:27:36

自己解決しからいいや。

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

2010/01/20(水) 19:09:19

せっかく答えてもらって無礼な奴

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

2010/01/20(水) 19:21:02

>>74
一括がもちろん速いが、FormulaR1C1は同じ結果になるが意味的に違うぞ。
Valueを使いなさい。

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

2010/01/20(水) 22:54:15

テキストファイルを読み込んでエクセル上のラベルに表示させたいのですが
どうしたらいでしょう

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

2010/01/21(木) 12:22:51

api関数を使用しています。

Declareで宣言する時に、引数をbyvalで指定してるのに、結果が
引数に代入されてくるのはなぜですか？

本来であれば、byrefで指定するべきではないのでしょうか？

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

2010/01/21(木) 16:06:07

2010βのマクロの実行速度って2007より遅くなってる？
mougにそのように書いてあったが、俺んとこは2010βが速い。
おまいらどうよ。

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

2010/01/21(木) 16:22:10

>>83
ttp://officetanaka.net/excel/vba/file/file08.htm

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

2010/01/21(木) 20:53:47

2000、XPです。VBAさわりだして数日です。
任意のサイコロの出目の和の組み合わせ数を全てシート上に書き出すマクロを組みたいと思ってます。
例えば6面ダイスを3回振る(3d6)　だったら
1 0
2 0
3 1
4 3
5 6
6 10
…のような結果になるようにしたいのです。
ただループの組み方をいくら考えてもそれらしきものが思いつきませんorz
どなたか考え方のヒントいただけませんか；

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

2010/01/21(木) 22:02:59

>>87
一番簡単なのは
全ての組み合わせをループで行って(この場合３重ループになる)
それぞれの合計値によって"組み合わせ数を表示する"セルへ
カウントアップしていく
(セルB1の値 = セルB1の値 + 1　って感じでね)

処理速度だしたいなら
同じ事を配列変数で行って　最後にセルへ書き出す

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

2010/01/21(木) 22:16:18

サイコロの目で0って何で？

009088

2010/01/21(木) 22:32:06

>>89
自分はこう解釈した

1 0
は　出目の和が 1になる組み合わせが　0ではないかと(当然だけど)
3 1
は　出目の和が 3になる組み合わせは出目が "1", "1" ,"1"の　1組しかないので 1

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

2010/01/21(木) 22:34:55

Sub 数学わからんからシラミ潰し()
Dim a, b(100), c(100), d, e, f
a = InputBox("サイコロの数を入れてね")
f = InputBox("目の数を入れてね")
Do
e = a
For d = 1 To a
e = e + c(d)
Next
b(e) = b(e) + 1
c(1) = c(1) + 1
If c(1) = f Then
c(1) = 0
For d = 2 To a
If c(d) = f - 1 Then
c(d) = 0
Else
c(d) = c(d) + 1
Exit For
End If
Next
If d = a + 1 Then Exit Do
End If
Loop
For d = 1 To 100
Cells(d, 1) = b(d)
Next
End Sub

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

2010/01/21(木) 22:39:16

>>90
成る程
流石だ

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

2010/01/21(木) 22:47:20

スマンエラー出るな
２行目の最後 f as byte にしてくれ
大量にサイコロ使う時は100のとこを好きな数に増やしてくれ

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

2010/01/22(金) 00:04:57

再帰で書いてみた。

Private diceNum As Long
Private face As Long '目の数
Private result(100) As Long

Sub 数学わからんからシラミ潰し2()
diceNum = InputBox("サイコロの数を入れてね")
face = InputBox("目の数を入れてね")
Call Count(0, 0)
For i = 1 To 100
Cells(i, 1) = result(i)
Next i
End Sub

Sub Count(Sum As Long, nTimes As Long)
If nTimes = diceNum Then
result(Sum) = result(Sum) + 1
Exit Sub
End If
For i = 1 To face
Call Count(Sum + i, nTimes + 1)
Next i
End Sub

009587

2010/01/22(金) 00:30:50

ありがとうございます、考えていた通りの結果に計算してくれます！
完成されたものをいただけるとは；

イルカとグーグル先生に尋ねつつ一文一文調べてみます。

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

2010/01/22(金) 02:33:51

2003,xpです。
あるセルにオートシェイブで図形が書かれているか判定したいのですが、どのようにすれば判定できますか？宜しくお願いします。

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

2010/01/22(金) 06:15:42

シェイプにはbottomrightcellプロパティ
topleftcellプロパティが有るから
それ使えばいい

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

2010/01/22(金) 09:54:06

>>96
Shapes.Count

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

2010/01/22(金) 10:23:12

>>96
参考に
http://oshiete.gogaku-ryugaku.net/qa3634541.html

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

2010/01/23(土) 12:32:06

ある文字から何番目の行になるか出すIF文はあるのでしょうか

「見出し項目」
製品A
製品B
　・
製品X
「小計」
のような並びになっている時に、小計から、見出し項目までの行を数えて、
何個の製品名があるかを出したいのですが、よく分かりませんでした。
よろしくお願いします。

0101100

2010/01/23(土) 12:36:32

説明が抜けていました。

「見出し項目」
・・
「小計」
で対になる並びは、複数ありますので、
小計から、直近の見出し項目までの行数を出したのですが、
そのようなやり方があれば、お願いします。

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

2010/01/23(土) 12:42:27

>>101
If文だけじゃ無理。不可能じゃないけど効率が悪すぎる。普通はWhile文を使う。

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

2010/01/23(土) 12:43:09

97,98,99
ありがとう、解決しました

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

2010/01/23(土) 14:43:05

キーボードから１０個数字を入力し、その数字の中から最大値を｢最大値｣という文字とともに
メッセージボックスで表示するのはどう書けば良いんでしょうか。
恐らくMaxSearch()を使えば良いという事は分かるのですが、書き方が分かりません・・・。
どなたかご教授願います。

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

2010/01/23(土) 15:06:41

excel vba maxsearch
で検索してみれ

0106104

2010/01/23(土) 15:45:29

>>105
検索もしてみたのですがアドウェア関係ばかり出てしまい、肝心のVBAは全然出ないのです
ひとつそれらしき物がありましたが、どうにも私には理解できず・・・

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

2010/01/23(土) 16:40:44

=Max(Search("<70 And >=50",A1:A10))
じゃ、vbaの本でも立ち読みしてくれば

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

2010/01/23(土) 19:53:51

VBAのプロファイラ、みたいなのどーやったらいいの？

マクロや自作関数を組み込みすぎて重たくなりすぎた

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

2010/01/23(土) 22:04:09

>>108
全くのプログラム無知なんですが
面倒だけど
メッセージボックスそれぞれに書いとくのは駄目ですかね

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

2010/01/23(土) 23:43:08

オートフィルターで質問です。

オートフィルターを解除したいのですが、
その方法自体は問題ないのですが、フィルターがかかっていないときに
それをやるとエラーになるので、フィルターがかかっているいないの
判定ができる方法か、エラーがでない方法は無いでしょうか？

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

2010/01/24(日) 05:24:03

MsgBox Worksheets("Sheet1").AutoFilterMode

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

2010/01/24(日) 11:45:01

On Error Gotoでエラーを無視するという方法もある。
バカっぽいのでおすすめしないが、ちゃんとした方法をいちいち調べるのが面倒な時はたまに使う。

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

2010/01/24(日) 12:07:11

On Error Resume Next じゃねーの？

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

2010/01/24(日) 17:22:43

バカっぽいので無視する

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

2010/01/24(日) 21:37:20

無条件で一度、オートフィルターを解除するとか

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

2010/01/25(月) 01:17:38

Excel2007でフォーム上にシートを表示（スプレッドシート？）
できない様なのですが、同じような機能ってありますか？

シートは閲覧のみでも大丈夫です。
どなたかご指導よろしくお願いします。

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

2010/01/25(月) 19:16:10

ロダにあげる→開く　でブラウザからシート表示できる

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

2010/01/25(月) 20:06:43

横からすみません。
いま、得点の集計シートを作っているのですが、
1位のセルを赤の太枠で囲むということをやろうとしています。
で、
If Target.Column <> 4 Then Exit Sub '4列目(D列)以外の変更は考慮しない。

i = Target.Row
If Cells(i, 7).Value = "1" Then
'1行x3列の範囲を選択する
Range(Cells(i, 1), Cells(i, 6)).Select
'太い赤枠で囲む
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
というところまではできたのですが、初めの「4列目の1行目から12行目までに数値が入力され、
その中で最大の数の場合に実行する」という条件がどうしてもわからず・・・
お知恵を貸していただければ助かります。

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

2010/01/25(月) 23:01:34

>>117
回答感謝します。
それはフォーム上全て操作できるものなのでしょうか？
なんとか調べて試してみます。ありがとうございました。

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

2010/01/25(月) 23:47:42

>>118
ワークシート関数　MAX

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

2010/01/26(火) 00:00:12

>>110
オートフィルターでソートしてるときだけ解除

If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If

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

2010/01/27(水) 10:19:27

ActiveCellの上と下の空白セルを選択したいです。

A1 あああ
A2 (空白)
A3 (空白)
A4 [ActiveCell]
A5 (空白)
A6 いいい

のとき実行すると、A2～A5が選択された状態になる、を期待しています。
よろしくお願いいたします。

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

2010/01/27(水) 12:45:02

With Selection
.NumgerFormat = "@"
.Replace What:="hogehoge", Replacement:="01"
End With

このようなコードを書いたのですが、実行して見てみるとセルの書式自体は
文字列型になっているのにも関わらず表示は"1"となってしまっています

"01"と表示させたいのですが、何故こんなことになってしまうのでしょうか？
また、解決策も教えていただきたいです

よろしくお願いします！

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

2010/01/27(水) 12:47:08

>>122
1） ActiveCell.Rowで行番号取得。
2） 1行目かを判定し、違えば1)の行番号-1から1までForでまわして非空白チェック。
3）非空白がヒットしたらその行番号＋1を変数に保持してExit For　ヒットしなければ1を変数を保持。
4） ActiveCellが最終行かを判定し、違えば1）の行番号+1からCells.Rows.CountまでForでまわしてチェック。
5）非空白ヒットすれば行番号-1を変数に保持してExit。（しなければCells.Rows.Count）
6） 3）と5）の変数を使って目的範囲をSelect

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

2010/01/27(水) 21:33:26

>>122
Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).SpecialCells(xlCellTypeBlanks).Select

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

2010/01/28(木) 12:31:46

どなたか>>123わかる方、よろしくお願いします。何卒…

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

2010/01/28(木) 13:26:32

>126
Ａ列ずらっと　hogehoge　とか　00hogehoge　10hogehoge　などいくつか入れてみて、
Ａ列まとめてセルの表示形式を文字列にしておいて、
[Ctrl]＋[Ｈ]で　hogehoge　を　01　に置換してみるとわかります。
hogehoge、00hogehoge　→　1
10hogehoge　→　1001
というように、手作業での置換も同じ結果です。

selectionのvalueを変数に転記してから
.value = replace(変数,"hogehoge","01")
みたいにしたらどうですか？

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

2010/01/28(木) 13:47:17

>>127
試してみます！
もし詰まっちゃったらまた質問させてください
ありがとうございました！

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

2010/01/28(木) 16:18:28

>>123
これ、なんでできないんだろうな。ちゃんと文字列型にした後に値入れてんのに

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

2010/01/28(木) 17:35:15

手動でやるとこんなコードになる

Selection.NumberFormatLocal = "@"
ActiveCell.FormulaR1C1 = "01"

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

2010/01/28(木) 17:40:43

すまそ、Replaceの問題なのか

ならば、いったん文字を取り込んで書き直すんじゃないの

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

2010/01/29(金) 03:26:32

Replaceしてから書式設定したらどうなるんだ？

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

2010/01/29(金) 10:52:38

>>132
そりゃ"1"になるに決まってるよ

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

2010/01/29(金) 14:40:22

結局文字形式で数字を
セルに入れたいときは
FOR～で回すしか手がないんか

0135sage

2010/01/30(土) 00:50:08

2003,xpです

ある列"A"にオートシェイブで1行目から"○"が各行のセルに表示されていて、
"○"が表示されなくなったら"○"を次の行のセルに表示させようとしています。
　bottomrightcell,topleftcellなど使ってみましたがうまくいきません。

　どのようなプログラムにしたらよいでしょうか？どなたか宜しくお願いします。

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

2010/01/30(土) 09:13:46

セルの左上の座標
(x, y) = (Cells(R, C).Left, Cells(R, C).Top)
セルの右下の座標
(x, y) = (Cells(R, C).Left + Cells(R, C).Width, Cells(R, C).Top + Cells(R, C).Heigth)

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

2010/01/30(土) 15:02:59

社内ＬＡＮを組んでいます
ブックＡのマクロでブックＢを編集し、保存するマクロがあります
他人がブックＢを編集していると読み取り専用でブックＢを開いてしまい保存する段階でエラーとなります
他人がブックＢを編集中であるかどうか判定するにはどうすればよいでしょうか？

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

2010/01/30(土) 15:06:44

ttp://sanryu.net/acc/tips/tips261.htm

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

2010/01/30(土) 15:16:46

>>138
解決しました
ありがとうございました

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

2010/01/30(土) 17:53:56

16進数を扱うデータリストを作っています

E0～E9の段(224～233)がExcelの仕様で勝手に指数関数と見なされて「0.00E+00」などという表記をされてしまいます
それは16進数のE0であって10進数の224の事なんですと…
同様のことが16進数のEが挟まる度に頻繁に生じます

VBAのマクロで文字列矯正をすることで対処できそうですがどんなコードで対処できますか？
御指南くださいませ

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

2010/01/30(土) 18:00:45

>>140
セルの書式を文字列にしておく

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

2010/01/30(土) 18:05:17

>>141
扱う量と試行回数が今後も継続的に多くなるからその案は駄目です
指数を無効にさせることが目的なので

ttp://soudan1.biglobe.ne.jp/qa2030753.html
ググったらこんなようなのが見つかったんだけど上手く作動できてない
コード合ってるのかな？
csv開く時に指数無効で文字列で読んでくれないと困るぅぅぅ

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

2010/01/30(土) 18:37:26

テキストで読み込み、カンマでスプリットする

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

2010/01/30(土) 18:41:41

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsCSV001.html
こんな現象が起きてると予想

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

2010/01/30(土) 19:46:14

csvを読み込んで、
セルの書式を文字列にしてセルに再書き込みでは？

0146kaimiyu

2010/01/31(日) 07:13:11

マクロ、VBA超初心者ですが、仕事で必要とされているのでがんばります。
さて、質問ですが、
現在、エクセルからリンクをはって、テキストコマンド(バーコードプリンタに印字させるコマンド)
を開き、そこからプリンタを選択して印字しておりますが、それだと手間なので、マクロやVBAで
エクセル上にボタンを作成し、そのボタンを一回押すだけで、印字までできますか？

補足ですが、テキストコマンドは、エクセルシートとは別のテキストファイルです。
よろしくお願いします。

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

2010/01/31(日) 07:43:36

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

0148kaimiyu

2010/01/31(日) 08:13:37

147
どうもありがとうございます。
マクロでもやってみたのですが、別ファイルを開くまででとまってしまい、
それから、印刷→プリンタ指定→印刷実行は手動で行っています。
それをエクセルのボタンから一発でやりたいのですが。。。可能ですか？

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

2010/01/31(日) 10:24:10

可能だし
マクロの記録みて

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

2010/01/31(日) 14:56:13

印刷専用アプリ起動してそれを操作したいんだろ。だとしたらマクロの記録だけじゃどうやってもだめ。
お手軽なところではSendKeysとか使ってコントロールする方法があるけど、そのままでは動作があまり安定しない。

こういう時はuwscというフリーウェアおすすめ。
ウィンドウやボタンを指定して操作できるからうっかりマウスをさわったり、常駐ソフトがポップアップ出してきても大丈夫。

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

2010/01/31(日) 18:15:01

どなたかお願い致します。
フォーム上で、textbox(技術検索番号)に入力した番号をシート（全データ）のB列から検索し、シート内の番号と
同じ行の各種データをフォーム上の対応したtextboxに返すというプログラムを作成しています。
以下のプログラムは書いてみたんですが、実行すると既に選択されているセルの情報ばかり返ってきます。
番号と一致したセルをアクティブにすればいいかなと思ったんですが…いまいち分かりません。
宜しくお願い致します。

Private Sub 技術検索ボタン_Click()
Dim sn As String
Dim sa As Range
'検索番号とエリアの設定
sn = 技術検索番号.Value
Set sa = Sheets("全データ").Range("B4").End(xlDown)
'検索の処理
With Sheets("全データ")
Set found = Worksheets("全データ").Cells.Find(sn, , xlValues)
'見つからない場合の処理
If found Is Nothing Then
MsgBox ("技術コードが見つかりません。")
'見つかった場合の処理
Else
Me.会社名表示.Value = Cells(ActiveCell.Row, 4)
Me.処理機郵便番号表示.Value = Cells(ActiveCell.Row, 5)
Me.処理機住所表示.Value = Cells(ActiveCell.Row, 6)
Me.電話番号表示.Value = Cells(ActiveCell.Row, 10)
Me.メールアドレス表示.Value = Cells(ActiveCell.Row, 9)
Me.事業区分表示.Value = Cells(ActiveCell.Row, 11)
End If
End With
End Sub

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

2010/01/31(日) 18:39:31

>>151
ActiveCell.Row　を　found.Row へ変更

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

2010/01/31(日) 18:39:40

>>151
動作確認してないけど、こうじゃないかな

Me.会社名表示.Value = Cells(found.Row, 4)
Me.処理機郵便番号表示.Value = Cells(found.Row, 5)
Me.処理機住所表示.Value = Cells(found.Row, 6)
Me.電話番号表示.Value = Cells(found.Row, 10)
Me.メールアドレス表示.Value = Cells(found.Row, 9)
Me.事業区分表示.Value = Cells(found.Row, 11)

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

2010/01/31(日) 19:01:32

>>152
>>153
お二人ともありがとうございます！
実行してみたところ、正常に動きました。
ちょっと感動しました。

違うシートがアクティブ（実際"全シート"は隠します）な時にも検索
できるようにしたいしたいので、ちょっと模索してきます。
わからなかったらまた質問させてください。
ありがとうございました。

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

2010/01/31(日) 19:22:10

>>154
今のままで、できるんじゃないかい？

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

2010/01/31(日) 20:06:09

>>155
他のシート（セルも）がアクティブになっていた場合なんですが、
なぜかtextboxに値が出てきませんでした。

’見つからない場合の処理’は出来てたんですが…

なので確実にするためにシートを定義してActivateしました。
ご指摘ありがとうございます。

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

2010/01/31(日) 20:16:26

>>156
With Sheets("全データ")
があるんだからそれを活用して

Me.会社名表示.Value = .Cells(found.Row, 4)
のように

Cellsの前に　ドットをつける

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

2010/01/31(日) 20:36:15

>>157
さっき自分でやった方法と違い、フォームの後ろで
シートが切り替わらなくても検索できました！
感謝します。

と同時にもう少し勉強が必要だと痛感しました…

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

2010/02/01(月) 03:47:36

エクセル2007.ＸＰ．
質問です。よろしくお願いします。詳しい方ぜひ教えてください。

VBAによるあるサイトの自動ログインについてです。

よさげなサイトを発見してためしてみたのですがよくわかりませんでした。

ttp://kikky.net/pc/vba_autologin.html

このプログラムの途中にかいてある下記の意味がわかりません。
'form.id部分はサイトのソースに合わせる
'form.password部分はサイトのソースに合わせる
'form部分はサイトのソースに合わせる

解る方いたらおしえてください。よろしくおねがいします。

また、使用例としてyahooでの自動ログインのやり方を少しおしえていただきたいのです、
すみませんがよろしくお願いします。

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

2010/02/01(月) 06:10:06

ttp://www.ken3.org/cgi-bin/group/vba_ie.asp

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

2010/02/01(月) 10:34:29

>>156
foundはRangeオブジェクトなんだから、わざわざ行番号を取得する必要はない。
行番号を取得するプログラムのほとんどは回り道の欠陥プログラムだ。
Me.会社名表示.Value = .Cells(ActiveCell.Row, 4)
なんてしないで
Me.会社名表示.Value = found.Offset(,2).Value
とすればよい。

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

2010/02/01(月) 10:36:09

間違った。
Me.会社名表示.Value = .Cells(founfl.Row, 4)
なんてしないで
Me.会社名表示.Value = found.Offset(,2).Value
とすればよい。

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

2010/02/01(月) 18:34:00

>>162
offsetも一度検討してたんですが、その時もActiveCellで考えてました。
ありがとうございます。

＞行番号を取得するプログラムのほとんどは回り道の欠陥プログラムだ。
大変参考になりました！頭に叩き込んどきます

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

2010/02/01(月) 22:50:34

ログインが必要なファイルサーバにファイルをコピーしたいのですが
ファイルサーバへの接続が上手くいきません。

どなたかアドバイスお願いします。

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

2010/02/01(月) 23:00:24

ttp://www.moug.net/faq/viewtopic.php?t=46965&sid=35bd0a78b60e9ce710a0ff9baaf11ef4

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

2010/02/02(火) 19:34:59

>>163
欠陥プログラムなんて事は無いから真に受けない方が良いよ。

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

2010/02/02(火) 20:12:59

自分も　回り道であるかもしれないけれど
欠陥プログラムは言い過ぎだとおもう
さぞかし >>161 は、綺麗なコードを書いているのだろうね
プロ(笑)なプログラマの言う事は理解できん

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

2010/02/03(水) 01:10:19

>>167
別に俺はプロじゃねーし。
まぁプロが行番号なんか使ってたら俺ら素人に笑われるわな。

0169デフォルトの名無さん

2010/02/03(水) 15:39:54

html 用の色指定　#FF00FF　とか　#EE82EE　を

VBA用にRGB(250,0,250)の形式に変換したいが、

どんな関数をつかえばいいの？

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

2010/02/03(水) 15:44:56

えっ

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

2010/02/03(水) 18:35:01

何をしたいのかわからないけど
16進数を10進数にする

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

2010/02/03(水) 20:57:32

CLng("&H" & Value)

0173デフォルトの名無さん

2010/02/03(水) 22:52:54

>172
謝謝、男毛先

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

2010/02/04(木) 08:15:25

>>168
データベースの2次元配列構造を使用する時には、
range.row や range.column を多用するぜ。
と言うか、可読性や速度を考えても、遠回りじゃなくて直線的なロジックだよ。
列は固定で行は変動する場合とかね。

for i = 1 to range.row なんかも欠陥プログラムって言われてる？

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