07/01/29 22:54:34
>>111
可能だ。=CONCATENATE("桃","太郎")とすればいい。
セルA=桃、セルB=太郎なら、=CONCATENATE(セルA,セルB)でもいい。
セルが３つ以上でもやり方は同じだ。
113:デフォルトの名無しさん
07/01/30 00:00:45
>>112
それのどこがVBA?
このスレ的にはVBAで応えるべきなんじゃないのか?
114:デフォルトの名無しさん
07/01/30 00:51:21
Word/VBAの教えてスレはどこ？
115:デフォルトの名無しさん
07/01/30 00:53:40
ありがとうございます
116:デフォルトの名無しさん
07/01/30 16:21:57
すみません、ちょっと教えて下さい
マクロで、指定したセルにチェックボックスを作ったり、削除したりするには
どう書けば良いのでしょう？
VBA駆け出しで、全く分かりませんorz
117:デフォルトの名無しさん
07/01/30 18:12:08
>>116
マクロの記録を録ってみろ
その記録されたコードを見てわからなければお前にはまだ早い
精進して出直せってことで
118:デフォルトの名無しさん
07/01/30 22:59:22
>>116
表示→ツールバー→VISUAL BASIX
出ないことを祈る
119:デフォルトの名無しさん
07/01/30 23:05:19
>>111
>>112を転用で、
Application.WorksheetFunction.CONCATENATE(セルＡ,セルＢ)
VBA的に
セルＡ.value & セルＢ.value 又は セルＡ.value + セルＢ.value
&だと文字列+数値が可。+だと不可
CStr(数値) + 文字列だと文字列として結合
>116
作るのは>>117の言うとおり。
ぐぐるなら[OLEObject]もしくは[Shape]
削除はデザインモードじゃないときにやるとエクセルが壊れる。
デザインモードでなら.Deleteとか.Cutで消える。
中途半端だがかんべん。
120:デフォルトの名無しさん
07/01/30 23:55:15
はじめまして、早速一つお聞きしたいことがあります。
Function関数において最終的に表示される文字列を、
「その関数を使ったセルとは別のセル」に表示させたいのですが
どのような式を打ち込めばよいでしょう？
121:デフォルトの名無しさん
07/01/31 00:09:06
>>120
Sub abc()
Dim str As String
str = test
Worksheets("Sheet2").Range("A1").Value = str
End Sub
Function test() As String
test = "返り血"
End Function
こういうこと？
122:デフォルトの名無しさん
07/01/31 00:37:35
ありがとうございます。まさかこんな早くに答えていただけるとは思いませんでしたので驚きました。
よろしければもう一つだけお聞きしたいのですが、任意のセルをそのつど入力し
そのセルに表示させたい場合はどうしたらよいでしょう？
123:デフォルトの名無しさん
07/01/31 00:56:22
>>122
よくわからんのだけども、
任意のセル（入力するセル）の指定方法：
①クリック→任意のWorkSheetのマクロを開いて、マクロ書くスペースの左上にある
ちっちゃいコンボボックス的なやつの値を[WorkSheet]に設定、そのとなりのボックスの値を
[SelectionChange]に設定（ディフォルト）
したら、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
ができるから、ここに
Target.value = "返り血"
Targetは引数ね。ちなみにThisWorkBookのまくろで同じの作るとすべてのシートに適応される。
②セルの値→
上と同じ感じで、左[WorkSheet]右[Change]に設定
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
ができるからここに、
If Target.Row = 1 And Target.Column = 1 Then
Range(Target.Value).Value = "返り血"
End If
A1のセルの値にB2とか入れるとそのセルに返り血って入る
弱点はセル以外の値を入れるとエラーになる。克服はできるはず、考えないけど。
③ユーザーフォーム→
ぐぐってちょ。
こんなもんで。
124:デフォルトの名無しさん
07/01/31 01:01:51
いただいたヒントのおかげで何とかなりそうです。
稚拙な説明にもかかわらず丁寧に答えてくださり本当にありがとうございます。
125:デフォルトの名無しさん
07/01/31 10:03:27
excelのvbaで松井証券へ自動ログインするプログラムを組んでいるのですが
下のプログラムの最後の objIE.document.frames("CT").document.All("kidouButton").Click で
たまにエラーが出ます。エラーの原因は何かわかりますでしょうか。
下記のプログラムは、松井証券へログインし、松井証券の会員ページから
ネットストックハイスピードというソフトウェアを起動するためのものです。
Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)
sub 時間待ち() 'ページの読込が終わるまで待機するための処理。
Do Until objIE.Busy = False
Sleep (200) 'CPU負荷軽減のために0.2秒間隔でIEオブジェクトをチェック。
Loop
End sub
（つづく）
126:デフォルトの名無しさん
07/01/31 10:05:56
（続き）
Sub netstock()
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "URLﾘﾝｸ(www.deal.matsui.co.jp)
call 時間待ち
'松井証券サイトのフォームへ、ワークシートに書かれたIDやパスなどのデータを流し込む
objIE.document.forms("form").clientCD.Value = Worksheets("松井証券へ自動ログイン").Range("C2").Value
objIE.document.forms("form").passwd.Value = Worksheets("松井証券へ自動ログイン").Range("C3").Value
objIE.document.forms("form").easyTradeFlg(0).Checked = True
objIE.document.forms("form").submit
call 時間待ち
'松井証券ログイン後、会員ページからソフトウェアを起動するためのページへ移動
Set objFDOC = objIE.document.frames("LM").document
For n = 0 To objFDOC.Links.Length - 1
If objFDOC.Links(n).outerText = "ネットストック・ハイスピード" Then
objFDOC.Links(n).Click
Exit For
End If
Next n
call 時間待ち
'ボタンを押してネットストックハイスピードを起動する
objIE.document.frames("CT").document.All("kidouButton").Click
End Sub
127:デフォルトの名無しさん
07/01/31 14:47:31
セルＡに入力した
Taka Toshi
という文字列を
taka_toshi
というように
小文字化と半角空白にアンダーバーを挿入して変換するようにしたいのですが
どうすればいいですか？
128:デフォルトの名無しさん
07/01/31 15:21:21
Replaceで半角スペースを_に置換して
LCaseで小文字化すればいいだけじゃん
このくらいならワークシート関数でも出来るし
129:デフォルトの名無しさん
07/02/01 22:29:54
>>125
理由はわからなそうだけども、
なんていうエラーがでてるのかはとても知りたいのでお願いします。
でも、もしかしたらもしかしたら、
Navigateで読み込み→
読み込みはじめるより先に Do Untilの条件へ行ってしまい
Sleepしない→
読み込まれる前にクリック
かも。
ループの前にSleepを入れてみてはいかかでしょう？
適当で申し訳ない。
130:デフォルトの名無しさん
07/02/01 22:30:48
さらにごめん。
Navigateで読み込みじゃなくて、
クリックで画面変更だ。
131:デフォルトの名無しさん
07/02/01 22:55:40
今日初めてExcelでマクロを作ろうとしてみました。
引数を２つ取る関数を作りたいのですが意味不明のエラーが出て
動きませんでした。
Public Sub Test()
Test2 (1, 2)
End Sub
Sub Test2(a As Integer, b As Integer)
MsgBox (a + b)
End Sub
引数を１つにすると動きます。
どこがおかしいのでしょうか？
132:デフォルトの名無しさん
07/02/01 23:27:48
>>131
ＶＢＡは自分で作った関数を使う際、
引数にかっこをつけてはいかんのです。
ので、
Test2 1, 2
で。
133:デフォルトの名無しさん
07/02/01 23:48:14
call
134:デフォルトの名無しさん
07/02/01 23:53:32
こんばんわ。
質問です。
1 ○○ 0：00
2 ○○ 1：00
3 ○○ 2：00
4 ○○ 3：00
5 ○○ 4：00
6 ○○ 5：00
・
・
・
25 ○○ 0：00
・
・
49 ○○ 0：00
・
73 ○○ 0：00
・
という、一時間ピッチのデーターがあります。一年分くらい。
それを、毎正時だけ欲しいのです。2～24、26～48の行を白紙の行に
したいのですが、この説明で分かってくれるかたいますか？
ご指導ください。
135:デフォルトの名無しさん
07/02/02 00:03:20
>>134
出力するシート名は？
136:デフォルトの名無しさん
07/02/02 00:10:24
> ＶＢＡは自分で作った関数を使う際、
> 引数にかっこをつけてはいかんのです。
ハズレ
自作関数の場合ではなく､基本的にSub､Functionプロシージャ(メソッド)を呼ぶ場合､
戻り値を取る場合とCallで呼ぶ場合以外は()を付けない。MsgBox関数の場合だとこんな感じで使う。
[1] MsgBox "test", vbOkOnly
[2] Call MsgBox("test", vbOkOnly)
[3] ret = MsgBox("test", vbOKCancel)
自作関数の場合でも戻り値を取る場合とCallで呼ぶ場合は()付けなきゃダメだし
自作関数じゃなくても､[1]のように使うときは()付けてはいかんのです。
ややこしいのは､引数一つの関数の場合。
[4] Inc hoge
[5] Inc (hoge)
Sub Inc(Value As Long)
Value = Value + 1
End Sub
[4]の方だと変数hogeが+1され､[5]の方だと変化しない。
引数一つの関数をCallを省略し引数に()を付けて呼ぶと､引数は値渡しになる。
基本的に参照渡し値渡しは呼び出される側で指定するので､[5]は殆ど使われない。
意味も知らずに間違って使ってる奴は居そうだけどな。
137:デフォルトの名無しさん
07/02/02 00:13:03
>>135
潮位というシートで作業しています。
138:デフォルトの名無しさん
07/02/02 00:21:04
>>136
サンクス。職場では恥かかんよう気をつけるよー。
>>137
Option Explicit
Option Base 1
Sub testTwo()
Dim rng As Range
Dim outRng As Range
Dim data() As Variant
Dim cnt As Long
Dim outCnt As Long
Set rng = ActiveSheet.Range("B1")
cnt = 1
Do While rng.Row <= 10
If rng.Value = "0:00" Then
ReDim Preserve data(cnt)
data(cnt) = rng.Offset(0, -1).Value
cnt = cnt + 1
End If
Set rng = rng.Offset(1)
Loop
Set outRng = ActiveWorkbook.Worksheets("潮位").Range("D1")
For outCnt = 1 To cnt - 1
outRng.Value = data(outCnt)
Set outRng = outRng.Offset(1)
Next
End Sub
とりあえずＤ列に出してみた。
別シートに出力の際は潮位のところをそのシート名に変更すればよし、あとそのとなりをA1にするとA列にでる。
139:デフォルトの名無しさん
07/02/02 00:25:16
ごめん。
Do While rng.Row <= 10
を
Do While rng.Row <= 65500
あたりに変えといて。
ちなみに検索する行の最大数。
あと、なにも出力されないようなら、
if rng Value = "0:00" Then
の
0:00 の部分をセルに表示されてる値ではなくて、
その右上らへんにある本当の値に変えてみて。
140:デフォルトの名無しさん
07/02/02 00:29:36
っていうか、
ＶＢＡの勉強中だからついＶＢＡで答えてしまったけれども・・・。
セルB1をクリック（選択）
データ→フィルタ→オートフィルタ
Ｂ１に三角がでるのでクリック
0:00を選択
orz...
141:デフォルトの名無しさん
07/02/02 00:37:36
>>140
ありがとうございます。
オートフィルにすると、行が詰まってしまうので、
行間は白紙のまま置いておきたいのですよ。
＞0:00 の部分をセルに表示されてる値ではなくて、
その右上らへんにある本当の値に変えてみて。
VBAでは出力されないのですが、もう少し教えてもらえますか。
142:デフォルトの名無しさん
07/02/02 00:39:30
ここで無限ループ使った回答したら、素人にはブラクラ並の攻撃かもしれない
と、ふと思った
143:デフォルトの名無しさん
07/02/02 00:47:28
こっちのほうが安全じゃない？
my_Row= Range("a65536").End(xlUp).Row
for i = 1 to my_row
処理
next i
144:デフォルトの名無しさん
07/02/02 00:48:48
そのままなら、こっちか。
my_Row= Range("a65536").End(xlUp).Row
Do While rng.Row <= my_row
145:デフォルトの名無しさん
07/02/02 00:52:51
>>141
Option Explicit
Option Base 1
Sub testTwo()
'変数定義
Dim row As Long
row = 1
'正午のデータだけ取得
Do While row < 65500
If row Mod 24 <> 1 Then
ActiveSheet.Range(Cells(row, 1), Cells(row, 2)).ClearContents
End If
row = row + 1
Loop
End Sub
正午以外を消して空白を残す。
24行ごとに値があること前提だけども…。
手抜きでスマソ、そろそろ寝ようかと…。
146:デフォルトの名無しさん
07/02/02 00:59:56
>141
追記。
一瞬止まるけども、処理が遅いだけなので。
（>>143）方式で、
Do While row < 65500
を
Dim myRow as Long
myRow = Range("a65536").End(xlUp).Row
Do While row < myRow
にすると早くなりまする。
>>143
>>145
まったくその通りですな。
まだまだ良いやり方のテンプレみたいなのがぱっと浮かんでこないのよなぁ…。
>142
自分のテストでは無限ループしたいほうだいだけどね。
すみません放置します。
おやすみなさい。
147:デフォルトの名無しさん
07/02/02 01:03:55
どうもでした。ペコリ。
148:デフォルトの名無しさん
07/02/02 01:08:35
成功しました。重ねてペコリ。
これで寝れそうです。
149:125-126
07/02/02 07:20:11
>>129-130
レスどうもです。
出ているエラーの件は、たまにしかエラーが出ないので
エラーの内容を良く覚えてないのですが
「サポートされてない」みたいなエラーだったと思います。
do until構文を使う前にもsleepしてみて
エラーが出るかどうか、しばらく様子を見てみます。
150:デフォルトの名無しさん
07/02/03 01:28:07
ちょっと暇だったのでVisualBasicのヘルプ全部印刷してみた（両面）
ヘルプ最高だな
高い金出してリファレンス買うぐらいならヘルプ印刷しといたほうが幸せだと気付いた
つうか手元のリファレンス見たらヘルプ丸写しがあって萎えた
151:デフォルトの名無しさん
07/02/03 22:06:07
そうか～？
現実問題、リファレンスで一番重要なのは索引なのだけども
オブジェクト名やメソッド名とかは印刷したものをアルファベット順に並べればいいとしても・・・
その他は・・・
152:デフォルトの名無しさん
07/02/03 23:11:21
すみません。Vista/Excel2007で
Application.Speech.Speak "日本語"
をやると、英語なら何の設定もせずに読み上げるんですが、
日本語は読み上げません。
2003では設定すれば「ツール」→「音声」→「[読み上げ]ツールバー」ででたツールバーも
表示させる方法もわからないのですが、
どなたか、お教えいだけないでしょうか。
153:デフォルトの名無しさん
07/02/04 00:19:46
新しいものにすぐ飛びつく早漏の癖に
情報的な基盤の無いものを自力で使いこなしていく
スキルも無い奴ってのは一番厄介だな
初心者ならシェアが広がるまで我慢汁垂らしながら待ってろよ
154:デフォルトの名無しさん
07/02/04 00:21:56
>>150
両面印刷コストが20円として、100ページで2000円になる。
1000ページなら2万だし買った方が安くないか？
155:デフォルトの名無しさん
07/02/04 01:22:42
コンピュータを用いた授業をしようと思うんですが、
ＶＢＡを用いて中学校数学の何か面白い教材を作ることできないかな？？
156:デフォルトの名無しさん
07/02/04 01:31:07
>>155
あるセルに好きな数字を入れると別なセルに数字が自動的に表示されて
その計算方法を推理させるとか。
もちろん数字を変えていくことで推理可能な計算式を考えんといかんよ。
数字じゃなくて論理式でも面白い、ある言葉を入れると別な言葉に置き換えられるとか。
あなたのVBA習熟度がどのくらいか知らないけど。
157:デフォルトの名無しさん
07/02/04 01:31:45
>>155
｢面白い教材｣を考えるのは教員の仕事。
お前が思いつけないなら､お前はその程度の教師ってことだ。
考えついた｢面白い教材｣の実現方法なら手助けしないこともないが
何が悲しくて教員でもないのにガキの嗜好に頭捻らにゃならんのだ？
158:156
07/02/04 01:34:02
>>157
正直スマンかった・・・
159:デフォルトの名無しさん
07/02/04 01:46:55
いや、そういう返答は無視でｗ
160:156
07/02/04 01:55:35
いや、>>157は言い方はあれだけど正論
写真屋スレで「キャラ絵描くんだけどどんなキャラがいい？」って聞く奴はおかしいのと同じ
161:デフォルトの名無しさん
07/02/04 02:13:03
言ってしまえば
> ｢面白い教材｣の実現方法
だって教師の仕事なのに､それなら手助けしてやるって
言ってる時点で十二分に親切だな。
162:デフォルトの名無しさん
07/02/04 02:16:26
Excel2007ってVBAの基本的言語仕様は変わってないんでしょうか？
例えばVB6.0のIntegerが16Bitなのが
VS2005のVBだとIntegerが32Bitになってるみたいな
163:155
07/02/04 02:45:37
私は数学教師ですが、ＶＢＡは全くといっていいほどの初心者です。
データから平均を出したり、総合得点を出して表示させるぐらいしか
できません。
実現方法よりもどういったことができるかがよくわかっていないのです。
ＶＢＡにかなり詳しい方々が集まっているようなので、ご意見を参考に
させていただきたかったのですが、予習をしてから出直してきます。
すいませんでした。
164:デフォルトの名無しさん
07/02/04 03:08:23
>>163
藻前は本当に教師なのか？
数学の分からない厨房は数学をイメージできない
数値なんて表示させても糞の意味もない
パソコンで学習させるなら、イメージを表示させてやる方がいい
つまり、関数グラフとか図形を使いこなして表示させろってこった
165:デフォルトの名無しさん
07/02/04 03:12:32
>>164
166:デフォルトの名無しさん
07/02/04 04:52:17
>>163
エクセルVBAで色々できるよ。外部アプリケーション、例えばインターネットエクスプローラーの制御も出来るよ。
工夫すれば、それなりにエクセルVBAでゲームを作ることもできて
エクセルVBAで作られたゲームのサンプルプログラム集とかも発売されてるよ。
167:デフォルトの名無しさん
07/02/04 04:59:10
つうかさ、パソコン関係って何が出来るかって聞いていたら全然先に進めんぞ
自分は何がしたいって目的が最初であって、それを実現するにはＶＢＡを選択するとか
他のモノを選択するとかすべき
168:デフォルトの名無しさん
07/02/04 11:04:19
パソコンクラブでも作ってマニアな中学生に教えてもらえ
学習曲線は残念だけど物好きな中学生には勝てん
先生側は「教育の技術」で中学生と勝負しろよ
ExcelVBAは開発環境と実行環境の距離が近くていい材料だと思うけどね
169:デフォルトの名無しさん
07/02/04 11:47:54
>>163
子供が見て分かりやすいのは物理シミュレーション
やはり目で見て動くと分かりやすい。
普通に教科書レベルの加速度とか落下だけでも結構面白い物が作れる
ExcelでもShapeやUserFromの座標を指定できるわけで
日本のApple本社に学校の旅行で行った時に、
なんてソフトか忘れたけどBasic風の記述言語で
「初期値を設定してボール(カエルだったかも)をジャンプさせて、落ちてきたて跳ねる」
ってプログラムが課題だった
ついでに速度や高さも表示する
設定値を間違えると果てまで飛んで行ったりして面白かったが。
数学なら幾何系とか確率系とかも分かりやすいかも
170:デフォルトの名無しさん
07/02/04 11:50:05
計算問題を自動で作って答えあわせをするコードとか
100マス計算とかできるんじゃない？
でもそういうなのはネットを探せばいくらでも出てくるような気がする。
171:デフォルトの名無しさん
07/02/04 12:30:10
>>170
数学を図式化して理解しやすくするのは良いが
それは駄目だろ、餓鬼に頃は紙に文字を書いて計算しないと馬鹿になるぞ
172:デフォルトの名無しさん
07/02/04 12:31:00
>>170
173:デフォルトの名無しさん
07/02/04 14:19:00
あるExcelファイルを日付が変わったら自動起動させるようにするには、
どんな感じで実現したらよいのでしょうか・・？
日の定型処理をしているのですが、
忘れてしまう事が多々あるので自動化したいです。
174:デフォルトの名無しさん
07/02/04 14:53:15
>>173
そんな曖昧な条件でどうしろと？
｢あるExcelファイルを日付が変わったら自動起動｣という条件だけなら
OnTimeで0:00にブックを開くプロシージャを呼ぶだけだが､実際にはOnTimeが使える
状況では無いだろうし､ブックを開くのも｢日付が変わったら=0:00｣では困るのでは？
条件はエスパー以外の第三者にも伝わるように､日本語できちんと書こう。
175:デフォルトの名無しさん
07/02/04 15:00:57
多分タスクでOK。つまり、VBA云々ではなくWindowsの使い方の問題。
176:デフォルトの名無しさん
07/02/04 16:00:52
excel4.0専用のスレが見当たらないのでここで失礼します。
excel4.0のマクロって最近のexcelでも当時と同じように記述できるの？
なくなったマクロ関数や文法の変更なんかはないのかな？
たとえば『=select(シート名!R[1]C[1])』と記述して実行すると、
目的のシートのアクティブセルではなくマクロシートのselect関数が
記述してあるセルから１行下で１列右のセルを選択してしまう。
これはexcel側の仕様変更によるものじゃないよね？
もし記述の間違いによるものだったら正しい書き方を教えて。
177:173
07/02/04 19:26:01
>>174
すいません。今週末から勉強を始めたので理解が足りないかもしれません。
Webクエリを用いてあるHPの表データを取得し統計処理をしています。
統計処理はそのExcelファイルを起動すれば実行できるよう実装済。
そのHPの表データは00:10頃に日々更新されているので毎日実行したいです。
そこでこの時間がきたら自動的にExcelファイルを起動する方法は、
どうやるのかなと質問してみました。
よくウイルス等で特定の時間が来たら挙動するようなものもあるし、
出来ない事はないなだろうと。
実行条件は時間以外にも色々ありますがFlagや分岐をつけたりすれば、
何とかできるだろうという事で今回は質問しませんでした。
Googleで「VBA 自動起動」等と検索しても条件が悪いらしく、
上手く引っかからないのでキーワードだけでももらえればと思いました。
これ以上は上手く説明できません。ごめんなさい。
>>175
あっありがとうございます。
VBAではなくそんな方法だったんですね。
書き込み後の検索中にAccessで似たような質問にヒットした時、
APIでスケジュラーに・・なんて記述があったので、
関係あるのかと思っちゃいました。
178:デフォルトの名無しさん
07/02/04 21:35:03
>>177
スタートボタンから、ヘルプとサポートをクリック、テキストボックスに at っていれてみ。
出てくるから
スレ違いな話になってしまうんでこれでやめるけど。
179:デフォルトの名無しさん
07/02/04 22:14:27
誰か教えてください。
仕事で ある一定の条件を満たすレコードを足していくプログラムをかいたのですが、数字がおかしくなります。
例えば、足す数字が１５．１ ８０．６ ３０．４となると出た数字が１２６．１０００１５２３９みたいな数字になります。
これはなんでなんでしょうか？
180:デフォルトの名無しさん
07/02/04 22:43:27
小数点の演算というのは、ＣＰＵの仕組み上誤差が出るものなのだ。
仕組みや理由についてはは、「浮動小数点 誤差」とかでググるとそれっぽい解説のされてるとこがでるのでそこで確認してください。
Excelのシート上で、その見た目をどうにかしたければ、セル書式の設定で小数桁数１桁だかなんだかにすればよいです。
181:デフォルトの名無しさん
07/02/04 23:35:39
浮動小数点演算をＩＦ文なんかで条件処理する場合
＝つかっちゃ駄目なんだよなぁ
182:デフォルトの名無しさん
07/02/05 01:29:53
基本的に割り算もだめですね
183:デフォルトの名無しさん
07/02/05 08:09:20
整数値の割り算の場合は／でなく
￥(商) Mod（余り)を使えばなんとかなる
184:デフォルトの名無しさん
07/02/05 10:48:46
いま正規表現の検索フォームを作ってます
検索対象をusedrangeで取得してfor eachでまわしてます。
これで動作は問題ないのですが、対象が多いと時間がかかってしまいます。
そこで、rng=usedrangeと配列に代入して高速化しようとして問題にぶちあたりました。
配列に代入されるのがValueっぽいので、
セルに10：00の様に時間や日付が入っている場合
longになるので検索文字が10などと一致しません。
usedrang.textとして代入すると空になってしまいます。
配列に代入された文字の表示形式を調べて変換することも考えたのですが、
現状と大差ない感じがします。
シート上に表示されている値をまとめて配列に代入する方法か代替案がありましたら
ご教授おねがいします。
185:デフォルトの名無しさん
07/02/05 10:53:50
クエリー
186:デフォルトの名無しさん
07/02/05 11:05:11
txt→CSV変換でなにか、いいサンプルコードないですか？
入力ファイル：oder.txt
出力ファイル：任意.csv
csvに出力する時、元のtxtから不要データの排除と任意条件での集計
ＶＢＡかＶＢＳで出来そうと思いいろいろ本読んで見たけど
いかんせんCobolerなので、よくわかっとりません
187:デフォルトの名無しさん
07/02/05 11:09:25
元のテキストファイルのフォーマットはどのようなものですか？
固定長？
188:デフォルトの名無しさん
07/02/05 11:36:51
Public Sub TextToCSV(ByVal pInPath As String, ByVal pOutPath As String)
Const C_DELIM As String = "," '区切り文字
Dim s As String:Dim s2 As String:Dim ss() As String
Dim fnoIn As Long: Dim fnoOut As Long
'ファイル開く
fnoIn = FreeFile: Open pInPath For Input As #fnoIn
fnoOut = FreeFile: Open pOutPath For Output As #fnoOut
'ファイル終了まで繰り返し
Do While (EOF(fnoIn))
'１行読み出し
Line Input #fnoIn, s
'特定のバイト位置に区切り文字を入れた文字列を作成する。
'イメージ000001111122222⇒00000,11111,22222
s2 = Mid(s, 1, 5) & "," & Mid(s, 6, 5) & "," & Mid(s, 11, 5)
'区切り文字が入った文字列をSplitで配列に出力
ss = Split(s2)
'各要素のチェックをする
If ss(0) = "99999" Then GoTo LOOP_NEXT
'ここまで来たら大丈夫のようなのでカンマ入り文字列(s2)ＣＳＶに出力する
Print #fnoOut, s2
LOOP_NEXT:
Loop
Close #fnoIn: Close #fnoOut
End Sub
189:デフォルトの名無しさん
07/02/05 11:37:36
あータブとか消されてしまうのか。見づらいな。
190:186
07/02/05 15:09:56
>>187
固定で102byteです。
得意先がいい加減で、仕様も手探り状態なもので(泣
>>188
ありがとうございます。
このコードを参考にして、試行錯誤してみます。
191:デフォルトの名無しさん
07/02/05 17:01:11
>>190
得意先に仕様書無いと作れないと言えばいいじゃん。
192:186
07/02/05 18:04:31
>>191
言ったよﾟ・(つД｀)・ﾟ・
普段もらっている受注データとは別のもので。。。
特殊なパターンで、これしか渡せないと言われた。
txtデータと口頭で言われた項目（どこまでが**で**byteで、とか）だけ。
結局、自分たちで解析するしかなくて。。。
ホストのマスターに落とす必要ないのでＶＢＳかAccessの類で出来ないか
考えてたんです。
ちなみに得意先はホ●ダ技研鈴鹿工場です
バイクも車もホ●ダだが、こういう体質は好かん！
193:デフォルトの名無しさん
07/02/05 18:10:10
大丈夫、他も似たようなもんだ。
194:デフォルトの名無しさん
07/02/05 20:11:48
>>180>>181>>182>>183
激しく感謝です。やっぱだめなんですね・・・＾＾；
195:デフォルトの名無しさん
07/02/05 21:04:29
>>194
つか＜、＞で範囲チェックすりゃいいじゃん
196:デフォルトの名無しさん
07/02/05 21:09:03
>>195
それはやっちゃダメ
結果的に同じでもコード的に意味が違ってしまう
つまり可読性を損なう
197:デフォルトの名無しさん
07/02/05 21:18:55
>>196
どうしても出来ないときは
いいじゃんコメント書いとけばいいんだから
全部そんなプログラム組んじゃいけないけど
198:デフォルトの名無しさん
07/02/05 21:20:09
後は１０とか１００でかけて整数値にするかだな
199:184
07/02/05 21:59:21
>>185
俺にたいするレスと受け取っていいんですよね？
色々検索して
URLﾘﾝｸ(www.microsoft.com)
を参考にしてテストしてみたんですが、
やっぱり時間とかはきちんと取得できないんですけど、
（セルに10:00といれておくと0.5になる）
これじゃないんでしょうか？
申し訳ないんですが、検索キーワードなど教えていただけると
助かります。
いや、助けてください
200:デフォルトの名無しさん
07/02/05 22:41:49
Dim tm As Date
Dim buf As String
tm = Cells(0, 0)
buf = Format(tm, hh:mm")
これで普通の文字列になるがな
201:デフォルトの名無しさん
07/02/05 22:42:29
buf = Format(tm," hh:mm")
202:デフォルトの名無しさん
07/02/05 22:45:10
更にtmだけでも応用すりゃ検索もできる
203:デフォルトの名無しさん
07/02/05 23:08:56
>>200-202
おまえ､バカだろ。文字列にする方法なんてこの際問題じゃない。そんなの簡単に解る。
君のやり方で文字列化するなら､その前にその値が元々どういう表示形式で表示されていたか判断しなきゃならないんだよ。
そして>>184に
> 配列に代入された文字の表示形式を調べて変換することも考えたのですが、
とあるから､君の考えた方法は既に変わりきってる上で､表示形式をいちいち調べて文字列に変換してたら
ValueではなくTextプロパティをループで読むのと大差ないってこった。
204:デフォルトの名無しさん
07/02/05 23:14:58
>>203
いや
>>10:00といれておくと0.5
と言う単なるヒントだ、そのまま使ったら馬鹿だが
205:デフォルトの名無しさん
07/02/06 00:15:27
10:00といれておくと0.5になるなら
逆に検索値を時間の場合10:00なら0.5にすりゃいんじゃねぇ？
206:デフォルトの名無しさん
07/02/06 00:35:33
それだと時間じゃない0.5もヒットするわけで
207:デフォルトの名無しさん
07/02/06 01:07:40
データベース使っても結局Value値がセットされると・・・
０．５でヒットしたらセル見にいって属性しらべたら？
少しはマシかも、０．５とかいっぱいあったら終わりだけど
208:デフォルトの名無しさん
07/02/06 01:23:47
Finｄじゃ遅いの？
209:デフォルトの名無しさん
07/02/06 01:27:24
findじゃだめなんだよ
210:デフォルトの名無しさん
07/02/06 01:32:58
あとはクエリ使って、ここで答えでないんなら
データベース関係のスレで聞いてみたら？
211:184
07/02/06 01:35:12
色々なレスありがとうございます。
最初の書き込みが携帯からで、内容をはしょりすぎて誤解があるようなので再度書き込みます。
A列)日付 B列)曜日 C列)作業名 D列)開始時刻 E列)終了時刻 F列)処理時間 G列)備考
が入っている複数のシートから正規表現で検索をしたいと思っています。
今の簡単なコードを書くと
Set reg = CreateObject("VBScript.RegExp")
With reg
.Pattern = strPattern
.IgnoreCase = True
.Global = True
end with
For Each sh in Thisworkbook.Sheets
For Each rng in sh.UsedRange
If reg.test(rng.Text) Then
検索文字列が見つかったときの処理
Debug.? "[address]" & rng.Address & " [text]" & rng.Text & " [Formula]" & rng.Formula
End If
Next
Next
といった流れなのですが、検索対象が大量にあり処理に時間がかかってしまいます。（対象30万件で5分くらい）
そこでFor Each rng in sh.UsedRangeをやめて、rng = sh.UsedRangeのように
配列にして、検索しようとしたところ、日付や時間（表示形式は[h]:mm)がLong型になるため
ｓｒｔPattern = "10" などに10:00などが該当しなくなります。
rng = sh.UsedRange.Formulaは代入がうまくいくのですが、rng = sh.UsedRange.Textはできないようです。
列ごとに時間や日付が入っているなら、そこだけ変換すりゃいーだろ、と言われそうですが
列がずれた場合や新たに項目が増えた場合を考えて、決め打ちで変換するのは出来れば避けたいと考えています。
説明下手ですいませんが、高速に処理する方法がありましたらご教授お願いします。
212:デフォルトの名無しさん
07/02/06 01:39:00
件数多いなぁ、確実にデータベース使った方が良いと思うよ
漏れはやり方わからんが
213:デフォルトの名無しさん
07/02/06 01:42:57
>>列がずれた場合や新たに項目が増えた場合を考えて
列のセルに名前付けりゃいいんじゃないの？
214:デフォルトの名無しさん
07/02/06 01:56:50
> 列がずれた場合や新たに項目が増えた場合を考えて、
2行目(実データの1行目)の表示形式に合わせるって手もある
30万回表示形式取得したら相当遅くなるだろうが､列数分(現状7回)だけなら殆ど気にならないだろ
215:たのんます
07/02/06 02:00:54
エクセルに関する質問なんですが
統計数字データをグラフに変換して、統計データによるグラフを作成する際に
統計データの始点と終点を同じにして、重ねて比べられるようなグラフにしたいのですが
統計データの量が、比較したいAとBでは異なるため、
始点終点を同じにして、重ねて比べることができません。
何か関数とかその他の方法で、
違うデータ量のものを重ねて比較する方法はないでしょうか？
216:184
07/02/06 02:08:44
書き忘れましたが、正規表現を使いたい理由は作業名が入力者により、まちまちなのでまとめて検索したいからです。
誤）日付はDate型ですね。すいません。
0.5は12：00でした。すいません。
いま>>199のリンク先のコードを改良してテストしてみたら、
10:00とかはちゃんと取れますね（表示１０：００→取得値10：00：00でした）
ただ24時間を越えるとダメみたいです（表示28:00→取得値1900/01/01 4:00:00でした）
日付も表示が1月1日でも2007/01/01でした。
何か指定する方法があるのかもしれませんが…
>>208
Findって正規表現使えましたっけ？調べてみます
>>210
なにぶんADOとか初めてなんでもう少し
URLﾘﾝｸ(support.microsoft.com)
とかを見て勉強してみます。
>>212
俺もそう思います
>>213
名前を定義なども考えましたが、名前＝範囲な訳で新規に項目が増えた場合にはコードを追加し
範囲別にコードを書かなければいけないので、試してません。
条件分岐で範囲（名前）別にコードを書く必要もないかもしれませんが、
ただでさえ件数が多く時間がかかるので、極力条件分岐などの処理をいれたくないので。
>>214
それは考えつきませんでした。試して見たいと思います。
色々ありがとうございました。自分でも試行錯誤してみようと思います。
217:デフォルトの名無しさん
07/02/06 02:16:11
>>216
Date型 は日付と時間一緒ですよ(小数点以下が時間)
>名前を定義
範囲で名前付けるんじゃなく、１行目の１セルに名前付けて
呼び出せば行位置と列位置が分かる 列位置分かればなんの行か分かるでしょ
218:デフォルトの名無しさん
07/02/06 02:19:39
>>217
>名前を定義
と書いていて複数シートじゃ駄目だね・・・
219:デフォルトの名無しさん
07/02/06 02:20:11
>>215
あるけどマルチしたので教えません
220:たのんます
07/02/06 02:49:33
すいません マルチの意味がわかりました、、、
してはいけないことと知りませんでした。
ただものすごく困っています。
色々調べても方法がなくて、、、
ご存知でしたら、何卒お教えいただけませんでしょうか？
以後こんな事をしてしまわないように気をつけます。
221:デフォルトの名無しさん
07/02/06 02:59:27
今回のが教訓だ。ここで教えちゃったら教訓にならない。
｢マルチしても謝れば教えてもらえる｣程度に思っちゃうだろう。
今回マルチをしてしまった責は､今回答えてもらえないということで負い
以後気を付けることで､以後の質問では突き放されることはなくなる。
まぁマルチをしても､2chで仮初めの礼を言われることくらいしか楽しみのない
哀れな教えたがり君が答えてくれることもあるけどね。
222:デフォルトの名無しさん
07/02/06 13:58:34
VBAでTerminateメソッドって使えないんでしょうか？
VBAから起動しているアプリを終了したいんですが
Set WshShell = CreateObject("WScript.Shell")
WshShell.Terminate ("ファイルパス")
と打ち込んでもエラーになっていまいます。
Set WshShell = CreateObject("WScript.Shell")
WshShell.exec ("ファイルパス")
で起動はできるようですが。
VBAを使って、windows上で起動しているアプリを終了させるには
どうしたらいいんでしょうか？
223:デフォルトの名無しさん
07/02/06 14:25:54
>>222
Win32API使うかWMI使うかだな
つーか全然VBAの質問じゃないし
224:222
07/02/06 14:34:30
え、これVBAの質問じゃないんですか？
すいません。
これはAPIのスレに行けばいいんですかね？
225:デフォルトの名無しさん
07/02/06 15:09:04
VB言語でApplicationオブジェクト(ExcelやWord)を操作するからVisual Basic for Application､略してVBA。
Applicationオブジェクト(Excelではブック､シート､セルなどを含む)を操作しなかったら
例えExcelやWord付属のVBEで実行しようと､VBAの分野の話じゃ無い。
開発環境の方のVisual Basicでやるべき事を､ExcelやWord付属のVBEに持ってきてるだけだ。
VBAはあくまでもマクロ言語なのに､開発環境に匹敵するほど強力過ぎる故にその辺の区別が出来ない奴が多くて困る。
｢VBAで｣の部分を｢VB6.0で｣に置換しても通用しちゃうような話は､全部開発環境分野の話だと思ってくれ。
因みに君のレベルならWin32APIよりはWMIの方がいいと思うぞ。
でもどっちにしろスレで質問することばかり考えてないで自分で調べることを考えよう。
どうせWin32APIスレでは言語限定での丸投げ(コード書いてクレクレ)なんて聞いちゃくれないし。
226:デフォルトの名無しさん
07/02/07 10:38:35
ＡＤＯを使用してエクセルのシートをデータベースにセットする場合
各セル毎のデータ形式でなく、全て文字列形式にしてセットする方法があるんでしょうか？
（セルを全て文字列形式にするという方法は除いて）
もしあるのなら、教えてください。
227:デフォルトの名無しさん
07/02/07 14:47:01
>>221
何をエラそうに講釈たれてんだよ、バーカ。何も教えないくせに態度ばっかしデカいんだよ。
228:デフォルトの名無しさん
07/02/07 14:56:05
（ ﾟдﾟ）ﾎﾟｶｰﾝ
229:デフォルトの名無しさん
07/02/08 00:50:04
マルチがなぜダメなのかを知っていればあんなに高飛車に
偉そうなことは言わないというのは間違いのない話であるよな。
230:デフォルトの名無しさん
07/02/08 01:01:14
つうか
>>226
の質問はスルーか
231:デフォルトの名無しさん
07/02/08 03:03:30
if
Do While
*********
Loop
end if
こんな感じのプログラムのDoLoopを1秒たったら繰り返すような感じに出来ますか？
232:デフォルトの名無しさん
07/02/08 03:36:24
>>231
Application.WaitなりWin32APIのSleepなりお好きなように
233:デフォルトの名無しさん
07/02/08 17:02:10
>>232
234:デフォルトの名無しさん
07/02/08 20:05:16
const aretsul = 1
DATA = "データファイル" Cells(row, aretsul).Text
Cellsに「222123,」見たいな感じにデータが入ってるんですが、最後のコンマを消したいんです
最後の一文字を読み込まないようにするにはどうすればいいでしょうか？
235:デフォルトの名無しさん
07/02/08 20:31:13
> 最後の一文字を読み込まないようにする
Value値にも因るが､基本的に不可能。
読み込んだ後で､末尾の1文字を消すなら文字列操作関数でどうにでもなるけどね。
236:デフォルトの名無しさん
07/02/08 21:21:27
>>234
left(cells(セルＡ,セルＢ), len(cells(セルA,セルＢ)) - 1)
こんなんどう？（未テスト。やりたいことは伝わるかと）
っていうか上の２行は？
237:デフォルトの名無しさん
07/02/08 21:40:45
>>235 >>236
238:デフォルトの名無しさん
07/02/08 21:58:30
ごめん、ビジネスsoft板のExcel総合スレで聞いたんだけど、こっちの方がよさげなので、
すみませんがマルチさせていただきます。
以下、コピペですが、エラーを防ぐ原因と方法を知ってる方いたら教えてください。
すみません、VBAのことで質問です。
リンク先のプログラムで、コマンドボタンを押した後に表示されるフォーム（モーダレス）の
コマンドボタンを押して処理を実行中にシートをダブルクリックしたりすとエラーで落ちちゃう
んですが、これを防ぐにはフォームをモーダルでshowするしかないですかね？
URLﾘﾝｸ(555.sytes.net)
239:デフォルトの名無しさん
07/02/08 22:35:29
>>238
原因不明なのですが、試してみてくれませんでしょうか？
ループの前に
Application.ScreenUpdating = false
ループの後に
Application.ScreenUpdating = true
スペルミスあったらごめんなさい。
240:238
07/02/08 22:46:43
>>239
ありがとうございますm(_ _)m
教えていただいた通りにしたらエラーがでなくなりました。
Application.ScreenUpdating = false で画面の更新を一時的に止めてやるんですね。
Formをmodalで表示しなくてもこの方法ならいけそうです！
241:デフォルトの名無しさん
07/02/09 01:38:11
>>226
242:デフォルトの名無しさん
07/02/09 01:45:38
>>241
243:デフォルトの名無しさん
07/02/12 10:41:46
すみませんが質問です。
ユーザーフォームにテキストボックス若しくはラベルを作り、
そこに文字を電光掲示板のように文字をスクロールさせる事は可能ですか？
244:デフォルトの名無しさん
07/02/12 10:49:33
タイマー作って文字列を更新しろ
245:デフォルトの名無しさん
07/02/12 11:39:55
Alt + PrintScreenで、画面のハードコピーをとって、
エクセルシートに貼り付ける時に、
そのハードコピーの拡大率は100%ですよね。
これを80%の拡大率で貼り付けたい時はどうすればよいのでしょうか？
貼り付けた後に、拡大率を変更するのは面倒なので。
（エクセルシート自体は100%のままで）
246:デフォルトの名無しさん
07/02/12 12:22:16
sub 貼りつけ
const ZOOM_RATE AS SINGLE = 0.8
ActiveSheet.Paste
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = Selection.ShapeRange.Height * ZOOM_RATE
Selection.ShapeRange.Width = Selection.ShapeRange.Width * ZOOM_RATE
end sub
どのプロパティ実現できるか分からないときは、マクロの記録を活用すると良いですよ。
247:243
07/02/12 17:24:50
>>244
なめらかに文字を流したいのですが・・・
248:デフォルトの名無しさん
07/02/12 17:27:26
>>247
ラベルの位置を微調整するとか、自前で文字描画するとか、まぁ頑張って。
249:243
07/02/12 17:31:17
>>248
簡単にできる方法ってないんですね・・・
何とかがんばってみます！
250:デフォルトの名無しさん
07/02/12 18:06:55
いや､簡単だろ
251:デフォルトの名無しさん
07/02/12 18:12:42
質問です。
Office2007 Excelでマクロの記録機能で、テキストボックスを表示して、テキストボックス内に文字を表示するといったマクロを記録しましたが、テキストボックスに関するマクロが一切記録されません。
何か個別に設定が必要なのでしょうか？
252:デフォルトの名無しさん
07/02/13 15:53:09
そのテキストボックス自分で実装したなら無理じゃね？
253:デフォルトの名無しさん
07/02/13 19:25:13
質問があります。
たとえばA1:D50までの表がありその中に3桁の数値が入っているのですが、
そのなかに指定した1桁の数値（H1に入力した数値）が（3桁のいずれかに）含まれるセルに色をつけたいのです。
また、関係ないかもしれないですが、表には空欄がある場合があります。
どうしたらいいでしょか。
お力をお貸しください。
254:デフォルトの名無しさん
07/02/13 20:07:08
>>253
条件付き書式でも出来るが､VBAでやりたいなら単にループ回してInStrあたりでその数字が含まれてるかどうか調べればいいだけじゃん。
第二第三引数は数値渡しても自動で文字列化されるし､戻り値をそのまま条件に出来る。
255:デフォルトの名無しさん
07/02/14 15:53:03
教えてください！
VBAからマクロの記録を終了させたり開始させたりする事って
出来るのでしょうか？
Application.CommandBars("Stop Recording").Visible = True
strTempBuff = CommandBars("Stop Recording").Controls(1).Caption
If Not strTempBuff = "新しいマクロの記録(&R)..." Then
'記録中なら停止したい。
xlApp.Application.CommandBars("Stop Recording").Controls(1).Execute '同じErr
xlApp.Application.CommandBars("Stop Recording").Controls("記録終了(&R)").Execute '同じErr
End If
上記コードで実行すると、マクロ記録中の場合
オートメーションエラーが発生してしまいます。
既にマクロが走っているからでしょうか？
256:デフォルトの名無しさん
07/02/14 23:16:03
すみませぬが質問です。フォームにラベルを作り、そのラベルにランダムの行数のセルを表示させ、
ちょっと時間をおいてその隣のセルを表示させる、というプログラムを作りましたが
上手いこといきません。アドバイス下さいませ。
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'メイン
Private Sub userform_initialize()
Call 表示
End Sub
'表示
Sub 表示()
'乱数発生
Randomize
Dim 行番号 As Long
Dim 乱数 As Long
行番号 = Worksheets("sheet1").Range("a65536").End(xlUp).Row
乱数 = Int(Rnd * 行番号) + 1
Label1.Caption = Cells(乱数, 1).Value
Sleep (1000)
Label1.Caption = Cells(乱数, 2).Value
End Sub
257:デフォルトの名無しさん
07/02/15 00:01:44
>>256
なにが上手いこといかないのか良く分からないんですが、
きっとエラーになるのではなくて、いきなり表示がCells(乱数,2)の値に
なると仮定してレス
Private Sub userform_initialize()
はFormが表示されるまえに起こるイベントなんで、
表示されたときにはCells(乱数,2)が表示されてしまうと思います。
あとは、
Label1.Caption = Cells(乱数, 1).Value
'追加↓
DoEvents
Sleep (1000)
Label1.Caption = Cells(乱数, 2).Value
と、DoEventsを入れないと
Sub 表示()の処理がすべて終わるまで
表示が更新されないと思いますよ。
258:デフォルトの名無しさん
07/02/15 00:30:37
アクティブセルに色付けするとき、どう指定するんでしょうか？
range（"A1"）.interior.colorindex=36
などという例は見たのですが、特定のセルじゃなく、アクティブなセルとして指定する場合を教えてください。
259:デフォルトの名無しさん
07/02/15 00:43:08
range（"A1"）の変わりにActiveCellって書けばいいだけじゃん。
何でそんなことも調べられないの？
｢アクティブなセル｣でヘルプ検索したらすぐ出てくるのに。
260:デフォルトの名無しさん
07/02/15 00:50:17
カーソル移動したセルの色変えたいなら
イベントと組み合わせて使えばよい
261:258
07/02/15 00:59:28
>>259
それも試しにやってみたのですが、色が変わらないので間違っているのかと。
ちなみにユーザー定義関数内でやろうとしていて以下のようにしてもoutputはでますが、
色が出ないんです。指定がおかしいのでしょうか？
Function color(work)
ActiveCell.Interior.ColorIndex = 36
color = "color" & work
End Function
262:デフォルトの名無しさん
07/02/15 01:18:30
>>261
普通にできてしまったのですが…。
Function test()
ActiveCell.Interior.ColorIndex = 36
End Function
同じですよね、多分？
263:デフォルトの名無しさん
07/02/15 01:25:42
>>262
たびたびすみません。同じだと思うのですが・・・。
やろうとしていることは、
・ユーザー定義関数を作ろうとしていて（ここでいうcolorという関数）
・計算結果がある値をとればセルの色を変える
というもので、上述のcolorという関数はそれをおもいっきり簡略化したものです。
やっぱり上手くいかないです・・・
もしかして根本的にわたしが勘違いしているのかもしれません。ユーザー定義関数とマクロは別物ということでしょうか？
264:デフォルトの名無しさん
07/02/15 01:27:47
263補足
>>262さんのを登録後、エクセル上で=test()と任意のセルに入力しても
ゼロと表示されるだけで色は変わりませんでした・・・
265:デフォルトの名無しさん
07/02/15 01:29:16
引数のworkには何が入る予定なの？
266:デフォルトの名無しさん
07/02/15 01:30:49
あー、分かった。
セルでセル関数のようにはマクロのユーザー関数は使えないよ。
ツールメニュー→マクロ→color（自分で作ったユーザ関数）を選らんで、
その時点で使うわけ。
267:デフォルトの名無しさん
07/02/15 01:30:54
>>265
ただの文字列です。
268:デフォルトの名無しさん
07/02/15 01:34:30
「セルの計算結果」って言ってるのは、
=SUM(R[-3]C:R[-1]C) ←こういう奴の話を言ってるんだよね？
で、このイコールのところに自分で作った関数を入れたいってことよね？
結論から言えば、できないんじゃないかなあ。
269:268
07/02/15 01:37:15
ごめん！
ウソ言ってた。
できたよ。
270:デフォルトの名無しさん
07/02/15 01:37:24
>>261
> ユーザー定義関数内でやろうとしていて
先に書けよ。
ユーザー定義関数ってのは引数を計算して､式を入れたセルに値を返す物で
書式設定だのなんだのというシート上の操作を行うものじゃないぞ。
だからアクティブセルを取得することは出来るが操作は出来ない。それがユーザー定義関数ってものだ。
指定がおかしいんじゃなくて､やろうとしている事に対してユーザー定義関数を使おうとしているのがおかしい。
取得が出来てることはDebug.Print ActiveCell.Address(0, 0)を入れればわかるだろう。
操作がしたいならイベントを使え。
271:デフォルトの名無しさん
07/02/15 01:38:10
URLﾘﾝｸ(www.relief.jp)
272:デフォルトの名無しさん
07/02/15 01:48:01
>>268
そういうやつですね。
文字列の長さからいろいろと計算させる予定でした。
結果的にダメっぽいですね。
いろいろとありがとうございました。
>>270
イベントでやるしかないのですね。
＞それがユーザー定義関数ってものだ。
名言の匂いがしますね。使わせて頂きます。
>>271
参考になりました。
273:デフォルトの名無しさん
07/02/15 01:48:02
265+266+268+269
あとはがんばって～。寝るわ。
274:デフォルトの名無しさん
07/02/15 03:47:04
Const a = 1
Const b = 2
Const c = 3
Sub main()
a1 = 1
b1 = 1
c1 = 1
cells_a = 0
cells_b = 0
cells_c = 0
Do While cells(a1, a).Text <> ""
a1 = a1 + 1
cells_a = cells_a + 1
Loop
Do While cells(b1, b).Text <> ""
b1 = b1 + 1
cells_b = cells_b + 1
Loop
Do While cells(c1, c).Text <> ""
c1 = c1 + 1
cells_c = cells_c + 1
Loop
cells(1, 5).Value = cells_a
cells(2, 5).Value = cells_b
cells(3, 5).Value = cells_c
End Sub
このプログラムを短くできませんか？
275:デフォルトの名無しさん
07/02/15 04:39:47
配列使うと1/3近くには出来るかも知れないが
速度は落ちるんじゃないかな
276:デフォルトの名無しさん
07/02/15 10:09:42
>>274
Const a = 1
Const b = 2
Const c = 3
Sub main()
a1 = 1:b1 = 1:c1 = 1
With Application.WorksheetFunction
cells(1, 5).Value = .Count(Range(Cells(a1,a),Cells(a1,a).End(xlDown)))
cells(2, 5).Value = .count(Range(Cells(b1,b),Cells(b1,b).End(xlDown)))
cells(3, 5).Value = .count(Range(Cells(c1,c),Cells(c1,c).End(xlDown)))
End With
End Sub
試してないけど、とかじゃダメなのか？
277:256
07/02/15 10:51:13
>>257
お答えありがとうございます。説明不足ですみませんでした。
御推察のとおり、１つ目のセルは表示されずに２つ目が表示されてしまっていました。
で、>>257様の誤解を参考にして色々試したのですが、どうにもうまくいきません。
もう少しだけヒント頂けないでしょうか？
278:sage
07/02/15 13:13:37
>>277
何を試してどうだめだったのか書かないと…
とりあえず自分の環境では普通に動く
フォームを表示したときに表示したければ
UserForm_Activaue()内で
Callしてみれば？
とりあえず、F8でステップインしながら
動きを確認してみることをお勧めするよ
後はDebug.Printするとか。
ローカルウィンドウで
変数に期待通りの値が
はいってるか確認する方法もあるし。
なんにしても情報が少なすぎだと思いますよ
279:デフォルトの名無しさん
07/02/15 13:18:21
うはぁ
あげちった…
携帯からレスするもんじゃないな…
280:デフォルトの名無しさん
07/02/15 14:18:22
他人事ながら
×UserForm_Activaue()
○UserForm_Activaｔe()
横レス失礼
281:256
07/02/15 16:06:37
>>278,>>280
またまた説明足らずで申し訳ありませんでした。
で、ご指摘の方法でちゃんと出来ました！
自分の持ってるＶＢＡの本が初心者用のものだったため、
UserForm_Active()とか全然載ってなくて方法が分かりませんでした。
今回はどうもありがとうございました！
282:デフォルトの名無しさん
07/02/15 16:27:59
VBに高階関数とかってないの？関数に関数を引数として渡したいだけなんだけど。
283:デフォルトの名無しさん
07/02/15 16:49:21
>>282
AddressOf
284:デフォルトの名無しさん
07/02/15 19:07:28
>>283
おお、ｻﾝｸｽ
285:デフォルトの名無しさん
07/02/15 19:31:06
ダイアログボックスで入力された年・月にしたがってカレンダーを表示するマクロを作っています。
年・月は文字列として取得、それを日付型にデータ変換して日付型の変数に代入しているのですが、
そこで「実行時エラー'11': 0で除算しました。」とのエラーが出ます。
DateValue関数を使う、日付型の変数を Variant型に変える、を試してみましたが、
結果は同じでした。
文字型の変数を Variant型に変えると、最初に１回エラーが出たあとその後は出なくなりましたが、
カレンダー表示の処理のところで日付を誤認してしまいます。
現在は On Error Resume Next でエラーを抑制して動かしており、
本来の目的であるカレンダー表示はそれで問題なくできておりますが、
可能であればエラー自体出ないようにしたいと思っています。
どこが悪いのかアドバイスをお願いします。
テストコード
Sub test()
Dim strInput As String
Dim datDay As Date
strInput = InputBox("年と月を入力してください。(例)「2007 2」")
datDay = CDate(strInput)
MsgBox datDay
End Sub
環境
Mac OS X 10.4.8
Excel 2004 for Mac ver. 11.3(060914)
以上よろしくお願いします。
286:デフォルトの名無しさん
07/02/15 20:46:35
VBAのソースで右側に長くなって見づら苦なってきたのでソースの内容はそのままで改行することってできませんか？
普通に改行するとエラーが出てしまいます。
287:デフォルトの名無しさん
07/02/15 21:01:35
MsgBox _
"VBAのソースで右側に長くなって" & vbCrLf & _
"見づら苦なってきたので" & vbCrLf & _
"ソースの内容はそのままで" & vbCrLf & _
"改行することってできませんか？" & vbCrLf & _
vbCrLf & _
"普通に改行するとエラーが出てしまいます。"
288:デフォルトの名無しさん
07/02/15 21:30:38
>>287
Chr(10)じゃだめ？
289:デフォルトの名無しさん
07/02/15 21:51:40
>>285
テストコードが問題なく実行できてしまったのですが…。
カレンダーに変換してるところのエラーでは？
290:デフォルトの名無しさん
07/02/15 22:43:59
たぶんロケール絡みだろう。
同じバージョンのWindows&Excelだって､ロケールが違うとCDateやIsDateの動作が変わってくるからな。
とりあえずInputBoxとCDateの間に
If strInput = "" Then MsgBox "空文字 or キャンセル": Exit Sub
If Not IsDate(strInput) Then MsgBox "日付変換不可": Exit Sub
って入れてみな。｢2007 2｣で"日付変換不可"が出るようなら､ロケールの問題でビンゴだ。
その場合は文字列切り出しで年と月を取得しよう。
"日付変換不可"が出ないにしても､文字列切り出しで解決出来るならそれでいいし。
291:286
07/02/16 00:53:59
_←これだけで改行できた思い出させてくれてありがとう
292:デフォルトの名無しさん
07/02/16 01:11:48
ListBoxに値をいれるとClickやChangeが発生しますが、
クリック中に値を変更したい場合とかどうしてますか？
フラグもって立ってたら処理しないというやり方で回避してるんだけど
なにかほかにいい方法がありますでしょうかね。
293:285
07/02/16 01:38:32
>>289, 290
レスをいただきありがとうございます。
テストコードのほうですが、>>290さんのコードを加えて実行してみたところ、
１回目は「実行が終了しました」とのエラーメッセージが表示され、
２回目は「オーバーフローしました」とのエラーメッセージが表示され、
３回目以降は「2007.2.1」と普通に表示されました。
念のため本来のマクロを On Error Resume Next をコメントアウトして再度実行してみたところ、
１回目は「オーバーフローしました」とのエラーメッセージが表示され、
２回目も「オーバーフローしました」とのエラーメッセージが表示され、
３回目は正常にマクロが実行され、
４回目で「0で除算しました」とのエラーメッセージが表示されました…
こちらに書き込む前に何回もテストし、そのときは「0で除算しました」というエラーメッセージのみ
繰り返し出ていたのですが、実行のタイミングによってまるで結果が違ってきているようでもあり、
とまどっています。
>>290さんのおっしゃっている「文字列切り出し」という方法は、文字列から年と月をそれぞれ別々に取得する
ということですね？
がんばってコードを書いて試してみます。
どうもありがとうございました。
294:デフォルトの名無しさん
07/02/16 10:37:50
a = Int(9 * Rnd + 1)
b = Int(9 * Rnd + 1)
c = a + b
これでcの中にaの中に7 bの中に8 が入ってるとして 15じゃなく 78と表示することはできますか？
295:デフォルトの名無しさん
07/02/16 11:59:19
>>294
つなげたいなら、&
296:デフォルトの名無しさん
07/02/16 12:20:14
ちょｗｗＶＢ以前の問題だろｗ
a*10+bも思いつかんのか
297:デフォルトの名無しさん
07/02/16 22:23:14
初歩的な質問でホントにすいません；
エクセルのシート上にファイル等から画像を挿入したとします。
↓
その画像を文字列の背面に持っていく方法がわかりません；
背景に設定する等とは違います；
（ちなみに背景も小さい画像で設定すると
ビッチリ並んで出てきますが、好きな場所に１個だけ、
とかは出来るんでしょうか？）
よろしくお願いします；
298:デフォルトの名無しさん
07/02/16 22:25:14
すいません；スレ違いでした；
299:デフォルトの名無しさん
07/02/18 12:04:32
100行まで三行間隔で文字列が入っていて間違って打ってないか確認したいです。
B列、100行までの間の3の倍数のセルに"もげ"って入っていたら次の3の倍数のセルへ
間違っているか、空欄だったらセルを選択した状態で終えてください。
という処理をしたいのですが
相対セルと三の倍数選択する部分の表現でつまづいてしまいました。
一つずつチェックしてこなすにも5000行以上で当て上げ状態です
どなたかヒントかVBAのソースを教えていただけないでしょうか
よろしくおねがいします
300:デフォルトの名無しさん
07/02/18 12:13:16
当て上げ?
で、そのチェックはVBAでやるようなことなのか?
301:デフォルトの名無しさん
07/02/18 12:54:44
B列を削除して割り振りなおした方が簡単じゃないの？
302:デフォルトの名無しさん
07/02/18 12:55:01
> ソースを教えていただけないでしょうか
ソースが欲しいならそういうところに頼めよ
ここは丸投げ依頼所じゃないぜ
自分で書こうって気がある奴がヒントを貰いに来る場だ
303:デフォルトの名無しさん
07/02/18 12:57:28
step 3 じゃだめ？
304:デフォルトの名無しさん
07/02/18 13:19:21
>>299
100行まで？
Sub moge()
Dim i As Integer
For i = 3 To 100 Step 3
If Cells(i, 2).Value = "" Then
MsgBox "B" & i & "は空白ですよ。"
ElseIf Cells(i, 2).Value <> "もげ" Then
MsgBox "B" & i & "に「もげ」でない文字が入っています。"
End If
Next i
End Sub
305:デフォルトの名無しさん
07/02/18 13:41:13
dim giy as integer
a=4937870
b=1.05
s=387
u=100
giy = WorksheetFunction.RoundDown(((a * b) / (s*u)), -1)
上のを実行するとなんでかオーバーフローするんですけど。
306:デフォルトの名無しさん
07/02/18 13:47:01
しませんでしたけど…
念のためLongにしといたらどーですか？
307:299
07/02/18 13:51:43
>>304
まさにこれです
変数とかCellsとかforとかすごい勉強なります。
ありがとうございます
>>303
最初なんのことだろうと思いましたが、304みてわかりました。step 3。
ありがとうございます。
308:デフォルトの名無しさん
07/02/18 13:56:43
デバッグしてa*bのところにマウスをもってくると、5184763.26454401
という数字が出ます。小数点以下の数字が原因かと思うんですけど。
309:デフォルトの名無しさん
07/02/18 14:11:26
>>308
それのどこがオーバフロー?
310:デフォルトの名無しさん
07/02/18 14:14:16
もしかして：
単精度で計算していて精度がでていないという落ち？
311:デフォルトの名無しさん
07/02/18 14:25:55
aとbがVariantならdoubleと同じ精度で扱えると思うんだが…
312:デフォルトの名無しさん
07/02/18 21:49:04
フォームのテキストボックスを全部いっぺんに空白にする方法はありますか？
313:デフォルトの名無しさん
07/02/18 22:40:09
>>312
順番に空白にすればよい
314:312
07/02/18 22:44:54
いや、そりゃもちろんそうなんですが、
一行で一気に全部いっぺんに空白にしてしまうような命令とかはないかなぁと思いまして・・・
315:デフォルトの名無しさん
07/02/18 22:55:43
>>314
そんなことしてどーするの？
見た目には変わらないのに？
316:デフォルトの名無しさん
07/02/18 23:10:11
Me.Controlsに対してFor Eachループ回して
If TypeName(objControl) = "TextBox" Then objControl.Text = ""
とか
317:デフォルトの名無しさん
07/02/18 23:29:42
そういう処理をするプロシージャを用意しておいて、そいつを呼べばいい。
318:312
07/02/19 10:43:01
>>315
自分の作成したフォームのテキストボックスが２０個くらいありまして、
それをクリアするのにプログラムが長くなってしまうので
短く簡単にすませる方法はないかなぁと思いまして。
>>316､317
ありがとうございます。それで試してみます！
319:デフォルトの名無しさん
07/02/20 00:41:14
EXCELで
コマンドボタンをクリックすると、Sheet3のA1:A10の内容を、Sheet1のA1:A10にコピーする
こんなモノを作りたいのですが
Private Sub CommandButton1_Click()
Range("A1:A10").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1:A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
こうすると、「Range クラスの Select メソッドが失敗しました」となってしまいます
どうすればいいか教えて下さい
「マクロの記録」を使ってしか、マクロ扱った事無いのに
調子に乗って仕事請けてしまって困ってます・・・
320:デフォルトの名無しさん
07/02/20 00:58:33
>>319
これだけでいいんでない？
Private Sub CommandButton1_Click()
Worksheets("Sheet3").Range("A1:A10").Copy
Worksheets("Sheet1").Range("A1:A10").PasteSpecial Paste:=xlPasteValues
End Sub
最後に
Worksheets("Sheet1").Activate
にしてもいいと思うけど…
321:319
07/02/20 01:15:25
解決しました有難うございます
範囲指定の時は
Worksheets("Sheet3").Range("A1:A10")
としなければいけないのですね
322:デフォルトの名無しさん
07/02/20 01:18:36
>>321
シート名を指定していないのでSelectが失敗したのではないでしょうか？
範囲指定とは関係ないです。
そういや
Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues
でOKでもOKでした。
323:デフォルトの名無しさん
07/02/20 01:40:09
どうでもいいけど、
シート名変更されると危なっかしいから、
シートのオブジェクト名でやった方が無難。
Sheet1.Range～以下略
意味が分からんならVBA画面でシートを選択してF4押せ。
324:デフォルトの名無しさん
07/02/20 01:50:00
ユーザーがSHIFT＋クリックで複数のセルを選択するように
プログラム上で選択中のセルをさらに動的に増やしたいのですが
どうすればいいでしょうか。
325:デフォルトの名無しさん
07/02/20 01:51:53
どういう風に増やしたいのか詳しく。
Offsetとかでいいならそれで。
326:デフォルトの名無しさん
07/02/20 02:12:18
OffsetではなくResizeの方が良いのでは？
327:デフォルトの名無しさん
07/02/20 03:12:28
飛び地で選択できるじゃないですか？
あんな感じで。
２点間を選択してもらって、その間の特定キーワードを含む
セルを自動的に選択する機能を作りたいのですよ。
328:デフォルトの名無しさん
07/02/20 07:49:42
>>327
マクロの記録でctrlキーを押しながら
A1とA3を選択。
これで、離れたセルの指定方法は分かるだろ？
後は、定範囲内をFor Eachとかでまわして
該当セルのaddressとるなりして
同じように選択するだけ。
329:デフォルトの名無しさん
07/02/20 11:06:07
Type MyTestType
ID As Integer
Name As String
End Type
Sub test()
Dim a(3) As MyTestType
'中略
i = TypeTest(a)
End Sub
Function TypeTest(a As Variant) As Integer
'省略
End Function
とコードを組むと、コンパイルエラーが出ます。
Functionの引数の型宣言で、配列を使うこともできませんが、
どのようにしたら、aをFunctionに渡すことができるでしょうか？
よろしくお願いします。
330:デフォルトの名無しさん
07/02/20 11:24:55
VBAでどうやってコンパイルエラーを出したのか知りたいのだが。
331:デフォルトの名無しさん
07/02/20 11:39:42
>>329
クラスを使え
>>330
メニュー > デバッグ > VBAProjectのコンパイル
も知らんのか？
>>329なら普通に実行したってコンパイルエラー出るし。
もしかしてexe吐くことがコンパイルだと思ってるのかな？
332:デフォルトの名無しさん
07/02/20 12:08:03
>>331
クラスってどうつかえばいいのですか？
プロジェクトで挿入からクラスモジュールを挿入して、
Type文を打ち込めばよろしいのでしょうか？
それと、ここはsage推奨ですか？
333:デフォルトの名無しさん
07/02/20 12:16:50
>>332
===== MyTestClass As クラスモジュール =====
Public ID As Integer
Public Name As String
===== EOM =====
===== Module1 As 標準モジュール =====
Sub test()
Dim a(3) As New MyTestClass
a(0).Name = "hoge"
a(0).ID = 10
i = TypeTest(a)
End Sub
Function TypeTest(a() As MyTestClass) As Integer
Debug.Print a(0).Name
Debug.Print a(0).ID
End Function
===== EOM =====
こんな感じで。
クラスモジュールの名前がAs ～で使う宣言型になる点に注意。
> それと、ここはsage推奨ですか？
別に。回答者はageる必要が無いから慣例的にsageてるだけ。
334:デフォルトの名無しさん
07/02/20 13:40:38
>>333
どうもです。
335:327
07/02/21 02:04:24
マクロで記録したら文字列で指定してたからどうしたもんかと
思いましたが、addressでセル位置の座標を取れるからこれ使えばいいのかな。
問題は解決したけども、なんかほかにスマートな方法があるなら教えてくだされ。
336:デフォルトの名無しさん
07/02/21 15:31:21
GetOpenFilename で「ファイルを開く」 ダイアログ
で左側のデスクトップやマイドキュメントが選べません。どうしてでしょうか？
参照設定で、Microsoft Runtime Scriptingは選択しています。
Office2003, XP Proです。
337:デフォルトの名無しさん
07/02/21 15:49:59
> どうしてでしょうか？
環境が壊れてるからじゃねーの？
とりあえずOSとOfficeを再インストールしてみな。
それとGetOpenFilenameはApplicationオブジェクトのメンバなんで参照設定は不要だし､
Microsoft Runtime Scriptingではなく
Microsoft Scripting Runtimeだろ。これはFSOやDictionaryだからな。
338:デフォルトの名無しさん
07/02/22 15:30:03
row = 1
For Each a In IEobj.Document.body.getElementsByTagName("A")
If InStr(a.href, "URLﾘﾝｸ(xxx.com)) <> 0 Then
x = a.href
Worksheets(1).Cells(row, 1).Value = x
row = row + 1
End If
Next a
こんな感じのURLなのですが、同じアドレスは二度書き込まない風にできますか？
339:338
07/02/22 18:01:47
処理重くなるだけかな
少しぐらい重なってもいいか・・・・
340:デフォルトの名無しさん
07/02/22 19:58:29
>>338
普通に重複チェックして条件分岐すれば良いだけでしょ。
重複チェックにはいろんな手法があるのでお好きなもので。
341:デフォルトの名無しさん
07/02/23 22:15:30
Dim myValue As Single
myValue = 1.0
Charts(1).Name = "Ver. " & myValue
としてエクセルのグラフのタイトルに、 Ver. 1.0 と入力したいのですが、Ver. 1 となります。
こういう場合は、どうすれば "1" を "1.0" と少数点付きにできますか？
342:デフォルトの名無しさん
07/02/23 22:27:30
As String にするか
"Ver." & Format(MyValue, "0.0")で
343:デフォルトの名無しさん
07/02/23 22:52:10
>>342
ありがとう！！！
できた～！！！！！
ちなみにStringはダメでした。
ほんとにありがとう。
344:デフォルトの名無しさん
07/02/23 23:15:34
ああ、"1.0"にしないと駄目だろうねｗ
345:デフォルトの名無しさん
07/02/24 01:29:23
Win2000 SP4ではちゃんと動いていたのにXP SP2に持っていったらエラーにはならないんですけどまともに動いてくれません
主に使っている機能はActiveXのInetです。WEBを取り込んで検索して加工した文字列をエクセルに貼り付けてるだけです。
参照設定は正規表現というやつを使いたくて、MSVBScriptRegulerExpresion1.0と5.5を二つ入れました。
1.0と5.5は両方チェック入れたらまずいんでしょうか？本にはMSVBScriptを参照設定しろと書いてあっただけなので不明です。
あとMS Internet Transfer Control 6.0とMS Internet Controls も参照設定してあります。
Win2000 SP4はVB6.0、WinXP SP2はVB6.0ランタイムが入ってます。
最初から２行あったOption Explicit ？ともう一行は文の意味がわからなかったので消しました。
XPのファイアーウォールははずしてあります。
なぜXPだけで不安定になるのか原因わかりますでしょうか？
346:デフォルトの名無しさん
07/02/24 01:33:32
うん､わかる
347:デフォルトの名無しさん
07/02/24 01:37:51
ありがとうございます。試してみます。
348:デフォルトの名無しさん
07/02/24 14:27:41
エラーの時にデバッグを選んだ後停止ボタンを押すと、フォームがひらくのですが、コード画面のままで維持できないのでしょうか？
その度にいちいちコード画面を選び編集したいコードの行を探さないといけないのはつらいです。
349:デフォルトの名無しさん
07/02/24 15:09:31
'初心者です。
Sub なんでだろう①()
Dim あ As Long
あ = Worksheets("Sheet1").Cells(1, 1)
If あ > 3 Then
Worksheets("Sheet1").Rows("1:5").Select
End If
End Sub
'だと動くのに
Sub なんでだろう②()
Dim あ As Long
あ = Worksheets("Sheet1").Cells(1, 1)
If あ > 3 Then
Worksheets("Sheet1").Rows("1:あ").Select
End If
End Sub
'だと動きません。なんでだろう。。。
'親切な方教えてください。
350:デフォルトの名無しさん
07/02/24 15:37:02
range("1:" & あ)では？
351:デフォルトの名無しさん
07/02/24 15:48:27
>>349
×Worksheets("Sheet1").Rows("1:あ").Select
○Worksheets("Sheet1").Rows("1:" & あ).Select
○Worksheets("Sheet1").Range("1:" & あ).Select
○Worksheets("Sheet1").Rows(1).Resize(あ).Select
>>350
このコードを書いているモジュールによってはシートを省略しちゃうと正しく動作しないよ。
｢Worksheets("Sheet1")｣も書くか､｢Rows以降を｣と添えよう。
352:３４９
07/02/24 15:49:50
>>350
ほえ～。動きました。
なぜだか分からないけど、とにかくこれでやってみます！
ありがとうございました！
353:デフォルトの名無しさん
07/02/24 16:05:06
>>351
あ、RowsのつもりがRangeって打っちゃったよ
354:３４９
07/02/24 16:09:47
>>351
とにかくいろいろやり方があるんですね！
どうもでした。m( )m
モジュールって何？っていう段階なので、すべてがサッパリ妖精なのですが、
とにかく理解もせずに突き進んでみることにして見ます。。。
355:デフォルトの名無しさん
07/02/24 19:58:05
エクセルのグラフの軸の書式設定にある
Y/数値軸目盛の最大値のところに初期入力してある値を取得する方法ってありませんか？
356:デフォルトの名無しさん
07/02/24 20:22:45
初期値は自動じゃないのか?
まぁ、マクロ記録で変更してみりゃプロパティの名前がわかるだろ。
357:デフォルトの名無しさん
07/02/24 20:35:27
>>356
自動です。
自動で入る初期値がほしいんですが、これに関しては
マクロ記録でいろいろ試してみましがはわかりませんでした。
358:デフォルトの名無しさん
07/02/24 20:53:07
>>357
初期値変更するの記録すればわかると思うけど
ActiveChart.Axes(xlValue).MaximumScale
じゃない？
359:デフォルトの名無しさん
07/02/24 21:14:35
>>358
ありがとうございます。
値の取得ができました。
初期値変更するの記録したつもりだったけど、わからなかったｗ
360:デフォルトの名無しさん
07/02/25 14:25:00
あぁ～ん、ユーザーフォームがうまく作れないよぉ～～～ん！！
参考書ばかりが増えていく…
361:デフォルトの名無しさん
07/02/25 14:29:14
わざわざユーザーフォーム作る香具師って馬鹿じゃね？
プログラミング能力の無さをさらけ出してるだけだよ。
362:デフォルトの名無しさん
07/02/25 16:08:29
馬鹿が馬鹿を笑う、ここはそんなスレでつｗ
363:デフォルトの名無しさん
07/02/25 17:30:50
>>361
kwsk
364:デフォルトの名無しさん
07/02/25 22:30:07
ユーザーフォームを×ボタンをクリックして閉じるときに、
それと同時に上書き保存をしたいのですが
何か良い方法はありますか？
365:デフォルトの名無しさん
07/02/25 22:33:26
>>364
UserForm_QueryCloseイベントに上書き保存のコードを書く
366:デフォルトの名無しさん
07/02/26 02:57:29
動作しないユーザーフォームなら1分もかからずにちゃんと作れるよな。
これすらできないのは才能ないというかなんか根本的におかしい。
367:デフォルトの名無しさん
07/02/26 04:05:54
>>361
の言ってる意味は全然変わらんが
>>366
なら分かる
368:デフォルトの名無しさん
07/02/26 04:55:40
じゃ、>361はこう訂正してみよう。
＞わざわざユーザーフォーム作る香具師って馬鹿じゃね？
→ユーザーフォーム作るのに苦労する香具師って馬鹿じゃね?
369:デフォルトの名無しさん
07/02/26 05:03:58
>>368
納得した
ユーザーフォーム使う使わないは用途によるからな
370:364
07/02/26 10:09:54
>>365
ありがとうございます！できました！
>>361
仕入・納品・在庫調べ等々、自分の仕事では
ユーザーフォームないと非常に入力がめんどくさいです。
なので自力で作成しました。
まあ、「市販のソフト買えよ！」と言われればそれまでですが。
371:デフォルトの名無しさん
07/02/26 10:34:35
>>360がやろうとしてることと、>>361,>>366,>>368が指摘してることに遥かなる距離感を感じるのはなぜだろう。
＞動作しないユーザーフォームなら
わざわざ動作しないフォームを作る暇人っているんだな。
372:デフォルトの名無しさん
07/02/26 11:47:50
>>370
まさかそれをアクセスでなくエクセルでやってるとか・・・
373:デフォルトの名無しさん
07/02/26 11:58:21
Excelが伝票というケースもあるだろ。Accessの仕事しかやったことないのか
374:デフォルトの名無しさん
07/02/26 20:15:30
Cellの中に文字列があって、その文字列の長さを取得するにはどうすればいいか教えてください。
文字変数の長さの取得方法がわかりません。
375:デフォルトの名無しさん
07/02/26 20:27:35
>>374
Len
文字変数の長さって何？
376:デフォルトの名無しさん
07/02/26 20:40:36
>>375
説明がまずかったですね
たとえば、
a As String
b As Integer
a = "ABC" または a = Range("A1").Valueとして、このA１セルに"ABC"が入っているとします。
それで、 b をこの a の中に入っている文字列の長さの値を入れたいわけです。この場合は3になるわけですが
どうすれば b = 3 とすることが出来るかがわかりません。
377:デフォルトの名無しさん
07/02/26 20:46:05
>>376
答え書いてあるやん
378:デフォルトの名無しさん
07/02/26 20:55:51
b = Len( a )
まあいろいろ期待どおりに動作しない場合も多いがね。
b = LenB(a )
内部がEUCなのでバイトカウントでも（ｒｙ
379:デフォルトの名無しさん
07/02/26 20:55:59
>>377
すいません。見落としていました。
>>375
ありがとう
はぁ、なんか疲れてるみたい・・・
380:デフォルトの名無しさん
07/02/26 21:02:18
「文字列の長さ」を「文字変数の長さ」と言い換えたのは
意味があるのかと…思ったわけです。
深く考えすぎたか＿|￣|○
381:デフォルトの名無しさん
07/02/28 15:39:38
マルチすみません。
情報が少ないですが以下の現象で困っております。
環境 WindowsXP Excel2003
エクセルのVisual Basic Editorで社内作成のコントロール(VB6にて)
をはりつけ、その後エクセルを終了すると必ずメモリがReadに・・・
のエラーがでてしまい困っています。あと２時間ほどで調べないといけない
のですが。。。誰かご教授お願いします。
382:デフォルトの名無しさん
07/02/28 15:49:07
> 社内作成のコントロール
の問題を聞かれても､どうにもならんわな。
聞きたいなら最低限そのコントロールのソースを晒せ。
それが出来ないなら自社内で解決しろ。
383:デフォルトの名無しさん
07/02/28 16:00:10
社内掲示板で２ちゃんねる使ってるなんてユニークな会社ですねー
384:デフォルトの名無しさん
07/02/28 17:21:49
dim page as long
URL="http:xxx.com/&page="+cells(x,x)+"&main=
だとエラーは出ないんですが
URL="http:xxx.com/&page="+1+"&main=
や
URL="http:xxx.com/&page="+page+"&main=
だと型が一致しません13Errorとでるのですが、なぜでしょうか
385:デフォルトの名無しさん
07/02/28 17:27:54
URL="http:xxx.com/&page=" & 1 & "&main="
URL="http:xxx.com/&page=" & page & "&main="
386:デフォルトの名無しさん
07/03/02 02:08:55
objIE.document.forms.Item(0).ID.Value = "ID"
objIE.document.forms.Item(0).PASS.Value = "PASS"
objIE.document.forms.Item(0).submit().Click
これで自動ログインさせたいのですが、ログインするこそはするんですが、
objIE.document.forms.Item(0).submit().Click
の行をデバックで過ぎると
オブジェクトが必要です。(Error 424)
と言うエラーが出てしまうのですが、なにか解決方法はありませんか
387:デフォルトの名無しさん
07/03/02 02:12:50
すみません、書き込んでから気づきました。().Clickが不要だったんですね('A｀)
スレ汚しすみませんでした
388:デフォルトの名無しさん
07/03/02 06:55:43
毎日入力するデータを別シートに自動保存して
何日か溜まったら分析したいのですが
例）
3月2日に "Sheet1" の A10 ～ A20 に整数のデータを入力する
コマンドボタンをクリックすると
そのデータが "Sheet3" の 3月2日の列 ( AH10 ～ AH20 ) にコピーされる
翌日、3月3日に "Sheet1" の A10 ～ A20 に整数のデータを入力する
コマンドボタンをクリックすると
そのデータが "Sheet3" の 3月3日の列 ( AI10 ～ AI20 ) にコピーされる
また翌日・・・
という感じに、Sheet1の同じ範囲のデータをSheet3に、日にちごとにずらしてコピーしたいのですが
どうすれば良いのでしょうか？教えて下さい