MS EXCELのCPU利用率
エクセルでマクロを使ってDATA整理をしたり、SUMPRODUCT関数を使用すると、パソコンの動きが異常に遅くなることがありますが、その時のCPU利用率をみると、いつも５０％です。
もっと早く計算させたいのですが、CPUの利用率を上げることはできるでしょうか?
よろしくお願い致します。
エクセルの条件分岐について教えて下さい。
現在、エクセル2003を使っています。
A1セルが「空白」「ON」というプルダウンリストになっていて、「ON」を選択するとB1セルに「はじまり」、C1セルに「おわり」という文字が表示されるようにしたいと考えています。
色々調べてみて参考になるものをようやく見つけて、自分でカスタマイズしてみました。
Sub 条件分岐 ()
if Range("A1").value = ON
Range("B1").value = "はじまり"
Range("C1").value = "おわり"
End if
End Sub
これをシート部分を「右クリック→コードの表示」で書いてみたのですが動きませんでした。
どうすれば思うようにできるか分からずつまづいております。
お手数ですが、どなたかご教授頂けないでしょうか？
ExcelのVBAの配列に関する質問です。
sheet1のデータをsheet2に表示するVBAを作成しています。。
sheet1のデータは7行目からスタートし、sheet2のデータは26行目からスタートしています。。
sheet1とsheet2の列は同じ並びではないため、それぞれのシートの列番号をCellsを用いて指定しています。
Sub test1()
Dim endrow As Long
endrow = Worksheets("sheet1").Range("A65536").End(xlUp).Row
Dim i As Long
Dim j As Long
For i = 7 To endrow
j = i + 19
Worksheets("sheet2").Cells(j, 1) = Worksheets("sheet1").Cells(i, 2)
Worksheets("sheet2").Cells(j, 8) = Worksheets("sheet1").Cells(i, 28)
Worksheets("sheet2").Cells(j, 9) = Worksheets("sheet1").Cells(i, 31)
Worksheets("sheet2").Cells(j, 10) = Worksheets("sheet1").Cells(i, 32)
・
・
・ ※長いので省略
Next i
End Sub
上記のtest1は正常に動くのですが、データ量が多いため、処理に時間がかかってしまいます。
高速化できないかと、以下のように変更しました。
Sub test2()
Dim dataRange1 As Variant
Dim dataRange2 As Variant
dataRange1 = Worksheets("sheet1").Range("A1:GI10006")
dataRange2 = Worksheets("sheet2").Range("A1:DZ10018")
Dim endrow As Long
endrow = Worksheets("sheet1").Range("A65536").End(xlUp).Row
Dim i As Long
Dim j As Long
For i = 7 To endrow
j = i + 19
dataRange2(j, 1) = dataRange1(i, 2)
dataRange2(j, 8) = dataRange1(i, 28)
dataRange2(j, 9) = dataRange1(i, 31)
dataRange2(j, 10) = dataRange1(i, 32)
・
・
・ ※長いので省略
Next i
End Sub
test2は、エラーメッセージ等は表示されませんが、sheet2にデータが表示されません。
ちなみに、以下のようにsheet1のみ配列化した場合は、正常に表示されました。
Worksheets("sheet2").Cells(j, 1) = dataRange1(i, 2)
Worksheets("sheet2").Cells(j, 8) = dataRange1(i, 28)
Worksheets("sheet2").Cells(j, 9) = dataRange1(i, 31)
Worksheets("sheet2").Cells(j, 10) = dataRange1(i, 32)
test2は、どこが間違っているのでしょうか？
ご教示ください。
よろしくお願いいたします。
ワードマクロで指定範囲内の改行の数を調べたいと思っています。下記のような記述をしました。改行マークのない文を指定（selection）して実行すると、予定通り、n=0となるのですが、改行マークのある箇所を指定すると、文章全体の改行の数を調べてしまいます。
改行の意味で「vbCr」を使用しましたが、それが問題なのでしょうか？また、改行が入るとselectionが無効になるのでしょうか？
どなたか教えてください。よろしくお願いします。
Sub test()
Dim n As Integer
Do While Selection.Find.Execute(findtext:=vbCr, Forward:=True) = True
n = n + 1
Loop
MsgBox (n)
End Sub
エクセルの条件分岐について教えて下さい。
現在、エクセル2003を使っています。
A1セルが「空白」「ON」というプルダウンリストになっていて、「ON」を選択するとB1セルに「はじまり」、C1セルに「おわり」という文字が表示されるようにしたいと考えています。
色々調べてみて参考になるものをようやく見つけて、自分でカスタマイズしてみました。
Sub 条件分岐 ()
if Range("A1").value = ON
Range("B1").value = "はじまり"
Range("C1").value = "おわり"
End if
End Sub
これをシート部分を「右クリック→コードの表示」で書いてみたのですが動きませんでした。
どうすれば思うようにできるか分からずつまづいております。
お手数ですが、どなたかご教授頂けないでしょうか？
重要だけど 中学の英語ではあまり出てこないような単語や表現。
こんにちは。毎度つまらない質問です。中学の英語は一通り重要な単語や表現はカバーしていますが、それでもあまり登場しない単語や表現がありますよね。
例えば、nasty。goodの反対がbadなら、niceの反対はnastyですが、中学はおろか高校の教科書にも出てこなかったような記憶があります。
次に、recognize。 例えば、 "I saw him, but he didn't recognize me."という文なら
中学の英語では 後半の部分は " but he didn't undestand who I am."とかに言い換えるんだろうか....
それから、prefer。これはことごとく like betterに言い換えられます。これも、中学では難しい単語と位置づけ、比較級の練習も兼ねて like betterで代用するんでしょかね。
例えば、"I prefer beef."と “I like beef better."では 時として大きなニュアンスの差も出てきます。
そこで質問です。このように、他にも重要でありながら 中学の英語では取りこぼしやすい単語や表現がありましたら、どんどん挙げてください。
