samz_のプロフィール

dim a as string dim b as string dim c as string dim d as string dim e as string dim f as string dim g as string dim h as string dim i as string a = "○○" b = "○○" c = "○○" d = "○○" e = "○○" f = "○○" g = "○○" h = "○○" i = "○○" 上記のような形でたくさん宣言しているのですが、 実際はもっとあり、これだととても長いコードになってしまいます(・・;) なんとか簡略化したいとは考えたのですがよい方法が見つからず 皆さんよろしくお願いいたします_(_^_)_

ノートパソコン（Let's noteW8）で、トリプルディスプレイは可能でしょうか？（デュアルディスプレイはしているのですが）

ＶＢＡの処理が遅くて困っています！ Excel VBAで１つのExcelファイルに３つのシートがあります。 １つ目のシートにデータが入力されています。 ２つ目のシートには条件を入力できるようになっています。 　例えば車速と記入してあるセルには手入力で３０と入力できるようになっています。 ３つ目のシートは、１つ目のデータから２つ目の入力値と比較して その条件にあう結果を３つ目のシートに計算結果として反映しています。 それが下記の処理です。 但し、処理が遅すぎて困っています。 下記式が２０個ありB列の結果を元にまた次の計算をさせています。 誰か、教えて頂けませんでしょうか？ よろしく御願い致します。 Set J1Sheet = Worksheets("条件設定1") Set K1Sheet = Worksheets("計算1") Set DataSheet = Worksheets("データ") 　２つ目のシートの入力値を格納しています 　TMPCAT = J1Sheet.Cells(11, 4) VSP下限 = J1Sheet.Cells(9, 4) 水温下限 = J1Sheet.Cells(13, 4) ST1_下限Ne = J1Sheet.Cells(17, 4) ST1_上限Ne = J1Sheet.Cells(15, 4) ST1_下限TP = J1Sheet.Cells(21, 4) ST1_上限TP = J1Sheet.Cells(19, 4) ST1_上限QM = J1Sheet.Cells(23, 4) ST1_許可ディレイ = J1Sheet.Cells(35, 4) ST1_診断周期 = J1Sheet.Cells(37, 4) ST1_診断回数 = J1Sheet.Cells(39, 4) 　 今回はデータ数が14000行ありました 　RowEnd = K1Sheet.Range("A65535").End(xlUp).Row Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 　Dim i As Long 　　For i = 3 To RowEnd 'B列の計算:2 strAns = "●" If K1Sheet.Cells(i - 1, 2) <> "●" Then If DataSheet.Cells(i + 1, 10) < TMPCAT Then strAns = "" End If End If K1Sheet.Cells(i, 2) = strAns Next i

カーソルを当てると流れる画像で、画像をクリックするとリンクする という仕組みはどうやるのか教えてください。 http://www.natura-hair.jp/#/staff　

環境変数"Path"の値に%PATH% OS : Windows XP Home 環境変数"Path"の値に、「%PATH%;」という文字列が含まれていたのですが、 これは正常な状態でしょうか？（意味のない値のように思えます。） 過去に環境変数を不用意にいじくってしまった結果、Windowsが起動しなくなり 「前回正常起動時の構成 (正しく動作した最新の設定)」でなんとか復旧、という経験があるので気になって質問いたしました。 当時、環境変数にどんな編集を行ったのかは、全く思い出せません（すみません。。。） どなたか分かるかた、よろしくお願いいたします。