1001コメント371KB

Excel VBA 質問スレ Part14

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

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

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

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

2010/03/08(月) 13:58:58

>>495
ビンソートよりもバケット（バケツ）ソートという名前のほうが一般的かもしれない

内容は
日付のラベルが付いたビンに対応するデーターを放り込んで
詰め終わったら、端から順に取り出す

今回はデータがもともと順並びしてるので、
結果的にあなたがエクセル上でやったことと同じ作業ですね

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

2010/03/08(月) 14:06:04

>>496
Excelはシートに保存するのがエレガントだと思います。

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

2010/03/08(月) 15:39:54

なんらかの関数で引数となるシート名が存在するかチェックしてるんだが
シート数分Forでまわして同名シート見つけた時点でexitしてるんだけど
シート枚数が多くて使用者のPCスペックが低いためか時間が結構かかってきているんだが
なんかアドバイスない？
さしあたって事前にシート名チェックするのやめて
ダメならOn Error GoToで飛ばすようにしといたんだけど
もっといい方法あったら教えてください

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

2010/03/08(月) 15:57:25

シート名チェックってそんなに時間かかる処理だっけ？
何枚くらチェックしてるの？

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

2010/03/08(月) 16:13:38

シートの存在チェックは、何かやってみてon error gotoが一番速い

0502499

2010/03/08(月) 16:22:21

>>500
50枚くらいなんだけどモバイル用ノートで
CPUがセレロンなんだ・・・

>>501
やはりそうですよね
まず実行してみてだめだったらon error gotoで
具体的エラー内容を探すように変えていきます。

ありがとうございました。

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

2010/03/08(月) 18:02:04

>>502
ん、通じたのかな？例えばIsWorkSheetExist()みたいな関数を作って、その中で
on error goto NotExist
a = worksheet("Sheet1").range("a1").value // (*)
return true

NotExist:
return false

をやれってことで、「何かやって」は(*)の行の内容のこと。
いろんな関数にon error gotoをばらまけってことじゃないよ。

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

2010/03/08(月) 18:36:00

ADOつかってSQL使えば？
別にExcelのシートに対してもSQLで読み書きできるよ

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

2010/03/08(月) 20:14:29

こんばんは。どなたか詳しい方教えてくださいませんか。

エクセルのマクロでCSVファイルを開く→編集→保存(CSV形式)までを自動化しているのですが、

保存時の文字コードをS-JISではなくEUC-JPにして保存したいのです。

色々調べたんですが使えそうなのがなかったので・・。

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

2010/03/08(月) 21:02:08

保存した後で変換ツールに投げるとこまで自動化したらばどうよ

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

2010/03/08(月) 21:19:20

>>505
nkf.dll

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

2010/03/08(月) 21:48:31

ありがとうございます。

nkf.dll

を使ってみようと思います。

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

2010/03/08(月) 22:44:29

詳しい方に質問です。

ExcelVBAでシートに保護をかけて、変更して欲しくないセル（項目名など）
をロックしています。
ただ、シートに保護をかけてしまうと、テキストボックスや線オブジェクト、
図形オブジェクトがdisable？になってしまって使用できなくなります。

何か解決する方法はありますでしょうか？

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

2010/03/09(火) 00:33:02

保護の対象を細かく指定すりゃいいだろ

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

2010/03/09(火) 02:03:00

DrawingObjects:=False

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

2010/03/09(火) 14:40:04

XPで2003を使用しています。
VBA初心者で調べつつ作成しましたが、思った動作になりません。
どうかご教示下さい。

仕入先マスタのシートで仕入先CDを重複しないよう、入力後に
チェックをするようにしました。
（コードは次レスに貼ります）

【問題点】
If Not IsNumeric(Target.Value) Then Exit Sub
を入れると、ターゲットが複数行の場合は動作してくれません。

上記のコードを削除すると、複数行を挿入したり、連続しない複数行を
削除した時に重複したと認識されてしまいます。
（emptyかNullが重複？）

※つづきます

0513512

2010/03/09(火) 14:42:31

※つづきです

Dim maxRow As Long
Private Sub Worksheet_Change(ByVal Target As Range)
With Workbooks("仕入管理帳.xls").Worksheets("仕入先マスタ")

maxRow = .Cells(Rows.Count, 1).End(xlUp).Row
' If Not IsNumeric(Target.Value) Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Set rngTarget = .Range("A2:A" & Target.Row - 1)
Set rngFind = rngTarget.Find(Target.Value, LookAt:=xlWhole)
If Not rngFind Is Nothing Then
If Target.Row <> rngFind.Row Then
Application.EnableEvents = False
MsgBox ("仕入先CDが重複しています"), vbExclamation
Target.ClearContents
Application.EnableEvents = True
End If

0514512

2010/03/09(火) 14:44:01

※最後です

Else
Set rngTarget = .Range("A" & Target.Row + 1 & ":A" & maxRow)
Set rngFind = rngTarget.Find(Target.Value, LookAt:=xlWhole)
If Not rngFind Is Nothing Then
If Target.Row <> rngFind.Row Then
Application.EnableEvents = False
MsgBox ("仕入先CDが重複しています"), vbExclamation
Target.ClearContents
Application.EnableEvents = True
End If
End If
End If
End With
End Sub

よろしくお願いします。

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

2010/03/09(火) 15:20:45

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

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

2010/03/09(火) 15:58:01

>>512
Targetに複数のセルが含まれるときは、こうすれば一つずつチェックできる
もちろんセルが1つでもエラーにはならない。Forの中を1回通るだけ
For Each c In Target
　　If Not IsNumeric(c.Value) Then Exit Sub
Next c

0517512

2010/03/09(火) 16:25:12

>>516
出来ました！ありがとうございます！
1週間もあれこれ悩んでいたので、とても助かりました！！

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

2010/03/09(火) 20:57:12

Excelに
Craete　AAA＿TBL
～

一行改行されて
Craete　BBB＿TBL
～

一つのシートにこういうデータがあった場合、
crateAAA＿TBL.sqlファイルを作成して
その中には
Craete　AAA＿TBL
～

crateBBB＿TBL.sqlファイルを作成して
その中には
Craete　BBB＿TBL
～

と分割したいのですが
分かりますでしょうか？

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

2010/03/09(火) 21:01:46

わけわからん、なにが起きてるんだ

r=3
c=10
debug.print r , c

if r=3 and c=2 then
........
elseif r=3 and c=4 then
........
elseif r=3 and c=3 then
........
elseif r=3 and c=2 then
.......
elseif r=3 and c=10 then
debug.print r , c
debug.print "ここまで来た"
end if

実行結果

3 10

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

2010/03/09(火) 22:00:52

Sub test()
r = 3
c = 10
If r = 3 And c = 10 Then
Debug.Print r, c
Debug.Print "こないわけないだろ"
End If
End Sub

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

2010/03/09(火) 22:15:58

でも来ねえだもん、くまった

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

2010/03/09(火) 22:18:37

省略せずに丸ごとソースを貼るかエクスポートしてどこかにアップしろ

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

2010/03/09(火) 22:20:24

if r=3 and c=2 then

まったく同じ条件のIfが2つある。どうせほかにもタイプミスとかしてるに決まってる

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

2010/03/09(火) 22:44:29

デバッガでブレークポイント仕掛けてステップ実行しろよ

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

2010/03/09(火) 22:45:45

スマソ、自己解決した
頭のほうの　if　に不等号が入ってた
思い込みがあると目が見てても脳が見てないようだ

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

2010/03/10(水) 00:17:38

無能には良くあること

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

2010/03/10(水) 00:37:20

本当に>>523が正解だったとは

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

2010/03/10(水) 06:46:48

不等号が入ってたのは正解なので
タイプミスではありません
見のがしです
すいません、正確に言っておきたいもので（まげられないおんな風）

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

2010/03/10(水) 07:34:21

ソフトのこと全く知りません。
そんな僕でもがんばればＶＢＡは習得できるでしょうか？

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

2010/03/10(水) 10:13:26

はじめから知ってるやつはいねえからそこは心配ない
あとはセンスしだい

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

2010/03/10(水) 11:19:08

>>530　ありがとうございます。
超入門の本を読んでいるのですが、読み終わったらもう少し専門書を購入し読みながら、
他の人の書いたプログラムを解読しつつ勉強しようと思うのですが、
このやり方でいいのでしょうか？

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

2010/03/10(水) 11:49:53

人が言葉を覚えるとき最初はオウム返しから始まるでしょ
プログラム言語もそれと似たようなもんですよ

書籍のサンプル等をガシガシ打ち込んでけば、身についていきます
コピペではあんまり身につきません、コピペが早くなるだけです
手打ちでがんばってください

人の書いたプログラムの解析は自分で作るよりも大変ですから、
そこから入るのは無理があるように思います

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

2010/03/10(水) 18:49:45

>>531
そういうやり方＆他人のコード解読法で一回挫折したので、その後検定取りの為の勉強したな。(VBAエキスパートスタンダード)
アレは基本的に誰でも受かるように出来てるし、体系だって勉強出来るシステムになってるので基本は身に付くよ。

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

2010/03/12(金) 05:27:46

Excel VBAで、コピーしたセル範囲をペーストする時に列幅を変えずに貼り付ける事は
可能でしょうか。
コピーする内容にセル結合や罫線が含まれています。
どうかご教授下さい。

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

2010/03/12(金) 07:59:09

列をコピー＆ペースト

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

2010/03/12(金) 12:00:19

>>534
まず普通にコピペしたあと、同じ場所にもう一度形式を選択して貼り付け→列幅

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

2010/03/12(金) 20:03:47

B3セルに"私は花子ですわ"、B4セルに"私は太郎ですよ"
があるとき、C3、C4セルにA列の2つの文字列を比較して違う部分を赤色にしたい。文字列の長さは同じとする。
で、次のように作ったんだけど、最後しか赤くならない。なんで？

Sub 文字列比較()
' 文字列比較 Macro
' マクロ記録日 : 2010/3/12 ユーザー名 : xp

Dim str1 As String
Dim str2 As String
Dim buf1 As String
Dim buf2 As String

str1 = Range("B3")
str2 = Range("B4")

For i = 1 To Len(str1)
buf1 = Mid(str1, i, 1)
buf2 = Mid(str2, i, 1)

If StrComp(buf1, buf2, vbTextCompare) = 0 Then
Range("c3").Value = Range("c3").Value & buf1
Range("c4").Value = Range("c4").Value & buf2
Else
Range("c3").Value = Range("c3").Value & buf1
Range("c4").Value = Range("c4").Value & buf2
Range("c3").Characters(i, 1).Font.ColorIndex = 3
Range("c4").Characters(i, 1).Font.ColorIndex = 3
End If
Next
End Sub

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

2010/03/12(金) 20:32:35

初歩的な質問ですがお願いします。

For
If xxx then
①の処理
Else
②の処理
End If
③の処理
Next

xxxの場合、①の処理をした場合には、③の処理をせずに
次のfor文へ行きたいのですが、elseの中になにを書けばいいでしょうか？

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

2010/03/12(金) 20:42:58

>>537
マクロの記録でやってそうだからわかりそうなもんだけど、
　Range("c3").Characters(3, 1).Font.ColorIndex = 3 '花
　Range("c3").Characters(4 1).Font.ColorIndex = 3 '子
　Range("c3").Characters(7, 1).Font.ColorIndex = 3 'わ
は続けてやらないとダメだと思う。
　　j = 0
For i = 1 To Len(str1)
If StrComp(Mid(str1, i, 1), Mid(str2, i, 1)) <> 0 Then
j = j + 1
ReDim Preserve s(1 To j)
s(j) = i
End If
Next
こんな感じで位置を先に取得してみては？

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

2010/03/12(金) 20:46:19

連レスすまん。
>>538
②の処理の次に③を書いちゃダメなの？
For
　If xxx then
　　①の処理
　Else
　　②の処理
　　③の処理
　End If
Next
それか、エスパーぎみに答えるとSelect caseを使うとか？？

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

2010/03/12(金) 20:54:58

>>537
これの意味を勘違いしているような
Range("c3").Value = Range("c3").Value & buf1

セルc3の文字列を取出してbuf1の内容と文字列結合 → セルc3に上書き
この処理をすると　これ以前にあった色指定が無効となる

つー事で
>>537を修正すると

Sub 文字列比較()
Dim str1 As String
Dim str2 As String
Dim buf1 As String
Dim buf2 As String

str1 = Range("B3")
str2 = Range("B4")
Range("c3").Value = str1
Range("c4").Value = str2

For i = 1 To Len(str1)
buf1 = Mid(str1, i, 1)
buf2 = Mid(str2, i, 1)

If StrComp(buf1, buf2, vbTextCompare) <> 0 Then
Range("c3").Characters(i, 1).Font.ColorIndex = 3
Range("c4").Characters(i, 1).Font.ColorIndex = 3
End If
Next
End Sub

0542538

2010/03/12(金) 21:03:38

>>540
ありがとうございます。

顔洗って出直してきます。

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

2010/03/12(金) 21:25:28

For
If xxx then
①の処理
Else
②の処理
③の処理
End If
Next

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

2010/03/13(土) 05:44:13

>>538
for x=1 to 100
if xxx _
then
①の処理
else
②の処理
end if
③の処理
Next
次のfor分の処理

こう書くと ③の処理をコメントアウトすればいいんじゃねということがわかるけど
②の処理のあと”だけ”に③の処理をしたい、と言うこと？それとも
真ならば他の人のいうとおりだけど
③の処理は②の処理の前にしたいのか、後にしたいのかが不明確ですよ
③の処理が②の処理と独立ならば順不同だけど

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

2010/03/13(土) 06:06:19

VBAと関係ないね

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

2010/03/13(土) 11:50:59

Webクエリでデータを読み込んで加工するVBAを作成しています
データの込みこみを待ってから次の工程へ行くようにするにはどうすればよいですか？

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

2010/03/13(土) 15:10:25

>>546
Do While IEobject.Busy = True And IEobject.ReadyState <> 4

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

2010/03/13(土) 17:47:47

こみこみ ← なんかｶﾜｲｲ

0549546

2010/03/13(土) 18:59:55

ありがとうございます

WebクエリとIEObjectの関係が分からないので、
もう少し調べます

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

2010/03/13(土) 20:40:49

Cells.Replace What:="１", Replacement:="1", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

0から9までの全角数字を半角数字に変換したいのですが
上記を10回書くよりも
これをfor文で回したいのですが
全角でというのか実現できません

教えてください

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

2010/03/13(土) 21:28:58

>>550
StrConv

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

2010/03/13(土) 22:07:45

すみません質問です

以下のような数字の置き換えをしたいのですがどのようにすればいいでしょうか？

<a name="1">　　→　　<a href="hoge">
<a name="2">　　→　　<a href="hoge">
<a name="3">　　→　　<a href="hoge">
～
<a name="9999">　　→　　<a href="hoge">

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

2010/03/13(土) 22:21:59

>>550
全角文字をループで扱うのはけっこう難しい。
文字コードを数値として扱う手もあるが、可読性が悪くなる。
プログラムの見栄えをすっきりさせたいなら、
配列に入れるか、置換のための関数を作るという手がある。
aryWhat = Array("０", "１", "２", ……

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

2010/03/13(土) 22:30:04

>>552
そういう場合は正規表現を使います。桁数の決まっていない数字は[0-9]+と書きます。
<a name=""[0-9]+"">
とすれば、これ1行で1から9999までのすべてが検索の対象になるので、これをhogeに置換します。

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

2010/03/13(土) 22:33:35

>>550
ヒント

Sub d()
　　For i = 0 To 9
　　　　Debug.Print i, StrConv(i, vbWide)
　　Next
End Sub

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

2010/03/13(土) 23:34:43

>>554

ありがとうございます
すごく助かりました

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

2010/03/14(日) 11:41:57

別のエクセルファイルの標準モジュールに書いてある定数を読み込むには、
どうしたらいいでしょうか？

0558557

2010/03/14(日) 12:23:52

自己解決しました

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

2010/03/14(日) 16:11:54

NO　品名　　価格　数量　金額
１　　りんご　１００　　３　　３００
・・・

という連続したデータを

NO　　１　・・・
品名　りんご
産地　
数量　３　・・・・

というふうに転記させる方法を教えてください。
転記先のフィールドは、元のフィールド名のものがない場合もあり、
逆に元のフィールドに無いものが転記先にあったりします。
また、転記元や転記先のフィールドの順番は、入れ替わる場合があります。
うまいやり方がありましたら教えてください。

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

2010/03/14(日) 17:34:39

>>559
どうかな。

１行目に作業用の空白行を追加する。

転記元の左端から1セルずつ値を読み、右に移動するループ（セルが空白になるまで）
　転記先の上端から1セルずつ値を読み、下に移動するループ
　　if転記元の値と転記先の値が同じならば
　　　作業用の行に転記先のセル位置を記入

（ここまでで転記先のセル位置を取得）
Ａ１　Ａ２　　　　　　　Ａ４
NO　品名　　価格　数量　金額
１　　りんご　１００　　３　　３００

あとは転記元のデータを1行ずつ処理。

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

2010/03/14(日) 17:39:05

>>559
新しいほうのデータの１レコード分の配列を用意する
古いほうのデーターから該当する配列の位置に読み込む
新しいデータへ配列から書き出す
以後レコード分繰り返し

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

2010/03/14(日) 18:22:14

別のシートにセルを一個ずつコピーしていけばいいのでは

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

2010/03/14(日) 18:48:01

おれだったらVLOOKUPでぱぱっと片付ける

0564480

2010/03/14(日) 22:45:10

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

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

2010/03/15(月) 14:15:40

Excel2007
Workbooks.Add
で新規にワークブックを作成する際に
オプション→数式で自動になるように作成することってできませんか？
今の状態は手動になっています。

0566565

2010/03/15(月) 18:09:02

自己解決？
元のプログラムが入っているブックのオプションが手動になっていたので自動に変えたら
新しくできたブックも自動になってました。

なんか、自分自身をコピーして作ってるみたいな？（よく判りませんが w

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

2010/03/16(火) 11:39:35

WinXP Excel2003

Sub Input_Date(ByVal iDay As String)
ActiveCell.Value = CStr(iYear) _
& "/" & CStr(SpinButton1.Value) & "/" + iDay
ActiveCell.NumberFormatLocal = ComboBox1.Value
End Sub

いまのままだと何処のセルにも入力するようになっています。
指定したセルにのみ入力するよう変更したいのですが、どこを直せば良いでしょうか？

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

2010/03/16(火) 12:59:16

>>567
ActiveCell

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

2010/03/16(火) 16:40:50

VBAで、「どこぞのプロシージャ内で」、「別のプロシージャやイベントを設定・修正」するって出来る？
例えばBook/Formのロード時のイベントプロシージャで、
　btn_test_1
　btn_test_2
　　　…
　btn_test_10
…って感じのボタン10個について、forで回してそれぞれのClickイベントに同一の処理を上書きさせる、とか。
それともクラスモジュール作って～なやり方しか無いのだろうか？
わかり辛い書き方でごめん。

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

2010/03/16(火) 17:54:28

2003、ＸＰです。
株のシストレの計算をやらせるのに、ブック2枚を頻繁に行ったり来たりさせるようなモジュールはやはり相当遅くなるのでしょうか？

Ａ：計算する元の四本値データだけ入ったブック。(シートが35枚あって、それだけで既に80ＭＢのサイズ)
Ｂ：Ａから計算結果だけを出力させるブック。

一枚に詰め込むべきか、複数枚に分けて管理すべきか・・・

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

2010/03/16(火) 18:11:19

>>570
単にデータを読み書きするだけなら大して遅くはならない。
いちいちSelectとかActivateとかやっちゃうと遅くなるんで、そうしないように注意してプログラムを作ればいい。
あとは、オブジェクト型変数とかWith句をできるだけ活用すること。
計算中は余分なイベントを止めるのもそこそこ効果がある。

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

2010/03/16(火) 18:14:14

>>569
質問の1行目だけ見ると答えはNO。
だけどたぶん、別の方法でできることをわかってないだけの気がする。

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

2010/03/16(火) 18:38:49

VBAでFX自動売買ソフトを作る事って可能でしょうか？

やりたい事

・業者orヤフー等からのレート取得
・発注機能

こんな感じです

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

2010/03/16(火) 18:42:34

可能です

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

2010/03/16(火) 18:46:01

是非作ってみたい
もしくはどなたかに作成していただきたいです

MT4だと業者に対応していないので・・

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

2010/03/16(火) 19:00:54

プログラムもわからんのにそんな事言っててもどうしようもないと思うが
んで、誰がただでやるわけｗｗ？

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

2010/03/16(火) 20:13:48

>>570
株価データの保存はDBに任せて、Excelは計算に専念させた方がスッキリすると思うけどね

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

2010/03/16(火) 20:17:59

Cells(1, 2) = Cells(1, 1)
というマクロを作ったのですが、Cells(1,1)の文字数が多すぎると
#VALUE!
というエラーが出てしまいます。
Cells(1, 1)の値を他のセルにコピーするにはどうすればいいのでしょうか。

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

2010/03/16(火) 20:27:13

まずは仕様書を書いてね
そしたら見積もり出すから

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

2010/03/16(火) 20:28:36

>>578
そのエラーは文字列の長さとは直接は関係ありません。
まずB列の幅を広げて、セルB1の書式を確認してください。

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

2010/03/16(火) 20:58:02

>>578
当方の環境下では
Cells(1, 2) = Cells(1, 1)
だと半角256文字以上で#VALUE! になるね

Cells(1, 2).Value = Cells(1, 1).Value
だと大丈夫みたい　なぜかしらんけど

つか.Valueを付けるのが本来の使い方なんだけどね

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

2010/03/16(火) 21:29:59

>>570
ADOつかてSQL書けよ

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

2010/03/16(火) 22:30:23

>>581
XP、2003だけど下記コードでエラー出ない。
なんでだろ？

Sub test()
Cells(1, 1) = String(257, "あ")
Cells(1, 2) = Cells(1, 1)
End Sub

↑どっかおかしい？

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

2010/03/17(水) 01:39:38

>>583
これでやったら912文字のところでエラーになった
Sub test()
　　For r = 1 To 1000
　　　　Cells(r, 1) = String(r, "あ")
　　　　Cells(r, 2) = Cells(r, 1)
　　Next
End Sub

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

2010/03/17(水) 01:51:17

>>575
50万くらい出す気あるなら話聞いても良いよ。

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

2010/03/17(水) 02:10:47

>>584
Sub celltest()
Cells(1, 1) = String(910, "あ")
Cells(1, 2) = Cells(1, 1)
End Sub

910文字まではOKってことだな。
>>578と>>581はどういう現象なんだろ？バージョンの問題かな？

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

2010/03/17(水) 03:01:12

いや、911文字までOK。
ていうか、みんなOSとExcelのバージョンぐらい書こうよ。
うちはXPと2003。

ちなみにVBAを使わずにセルに直接入力した場合は1セル32767文字まで入る。
ttp://office.microsoft.com/ja-jp/excel/HP051992911041.aspx

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

2010/03/17(水) 03:15:21

>>587
ん？
>>584だと911行目でエラーが発生してるから
911文字はエラー、910文字まではOKってことじゃないの？
OSとバージョンが同じだから、やっぱりバージョンの問題なんだろうな。

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

2010/03/17(水) 03:22:49

doudemoii

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

2010/03/17(水) 12:25:45

どうでもよくない。
>>578と>>581の状況が再現できないと回答もできないし、
自分が同じトラブルに遭う可能性だってあるわけだから解決できないと気持ちが悪い。

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

2010/03/17(水) 12:47:26

>>589
だんだん話しについていけなくなっちゃったんだろうなｗ

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

2010/03/17(水) 14:51:07

気持ち悪いから>>578早く戻って来い！

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

2010/03/17(水) 16:29:57

>>581で再現できてんじゃん

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

2010/03/17(水) 17:26:31

で、解決方法は？

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

2010/03/17(水) 17:31:37

再現できないとか言ってるから、再現できてると言ったまで。
>>581によれば、Value付ければいいんじゃないの？

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

2010/03/17(水) 17:47:44

>>594
Cells(1, 2) = Cells(1, 1).Valueにすればいい。
Cells(1, 2) = Cells(1, 1)と何が違うのかは知らん。

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