samz_ の回答履歴
- コードの簡略化 VBA
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 = "○○" 上記のような形でたくさん宣言しているのですが、 実際はもっとあり、これだととても長いコードになってしまいます(・・;) なんとか簡略化したいとは考えたのですがよい方法が見つからず 皆さんよろしくお願いいたします_(_^_)_
- ベストアンサー
- lostsymbol
- Visual Basic
- 回答数6
- ノートパソコン(Let's noteW8)で、トリプルディスプレイは可
ノートパソコン(Let's noteW8)で、トリプルディスプレイは可能でしょうか?(デュアルディスプレイはしているのですが)
- ベストアンサー
- nabewari
- ハードウェア・サーバー
- 回答数1
- VBAの処理が遅くて困っています!
VBAの処理が遅くて困っています! Excel VBAで1つのExcelファイルに3つのシートがあります。 1つ目のシートにデータが入力されています。 2つ目のシートには条件を入力できるようになっています。 例えば車速と記入してあるセルには手入力で30と入力できるようになっています。 3つ目のシートは、1つ目のデータから2つ目の入力値と比較して その条件にあう結果を3つ目のシートに計算結果として反映しています。 それが下記の処理です。 但し、処理が遅すぎて困っています。 下記式が20個ありB列の結果を元にまた次の計算をさせています。 誰か、教えて頂けませんでしょうか? よろしく御願い致します。 Set J1Sheet = Worksheets("条件設定1") Set K1Sheet = Worksheets("計算1") Set DataSheet = Worksheets("データ") 2つ目のシートの入力値を格納しています 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
- 締切済み
- hachi2525
- その他(プログラミング・開発)
- 回答数2
- カーソルを当てると流れる画像で、画像をクリックするとリンクする
カーソルを当てると流れる画像で、画像をクリックするとリンクする という仕組みはどうやるのか教えてください。 http://www.natura-hair.jp/#/staff
- ベストアンサー
- tukiusagi2
- Flash
- 回答数1
- 環境変数"Path"の値に%PATH%
環境変数"Path"の値に%PATH% OS : Windows XP Home 環境変数"Path"の値に、「%PATH%;」という文字列が含まれていたのですが、 これは正常な状態でしょうか?(意味のない値のように思えます。) 過去に環境変数を不用意にいじくってしまった結果、Windowsが起動しなくなり 「前回正常起動時の構成 (正しく動作した最新の設定)」でなんとか復旧、という経験があるので気になって質問いたしました。 当時、環境変数にどんな編集を行ったのかは、全く思い出せません(すみません。。。) どなたか分かるかた、よろしくお願いいたします。
- 締切済み
- chowwwwwww
- Windows系OS
- 回答数2
- Windows2000 professionalでショートカットのプロ
Windows2000 professionalでショートカットのプロパティより「リンク先を開く」ボタンを押すと、リンク先のフォルダが開かずにファイル・フォルダの検索ウィンドウが開く様になってしまいました。 どのショートカットも同じ現象が起こっており、一度検索ウィンドウが開くとショートカットのプロパティがなかなか閉じない状態になります。これはWindowsのシステムファイルの破損でしょうか。 職場のPCでOSのリカバリCDとかないのでできればそれと思わしきDLLを別PCからコピーするとかで対応できればと思っております。 原因及び解決方法を教えてくださいませ。 sfc /scannow では何も変わりませんでした。
- ベストアンサー
- norasub03
- Windows系OS
- 回答数2
- 無線LANの一番速い接続方法
無線LANの一番速い接続方法 こんにちは。 今家ではNECのWR1200Hを使用しています。 買ったときにはADSLだったので特に速度を重視していなかったのですが、 最近光に変えてからは速度を気にするようになりました。 接続コース:Gyao光 マンションLANタイプ 使用PC:富士通 FMV-BIBLO MG/G75N 現在は内蔵の無線LANを使用してWR1200Hに接続しています。 家族はNEC子機で接続という状態です。 ですが調べたところWR1200Hでは光の速度を最大限生かせないよう。。。 そこで質問なのですが、私の部屋は配置的に有線接続でも平気なので、速度を重視したいです。 そのときWR1200Hに有線接続してネットを使うのと、モデムに直接有線接続するのとどちらが 光を活かせるでしょうか? もしもモデムに直接つないだ方がいい場合、家族用に無線LANも使える状態を保ちたいのですが そんなことは可能でしょうか? どなたかご教授いただければと思います。
- ベストアンサー
- potapota24
- Wi-Fi・無線LAN
- 回答数2
- 昨日、突然Windows7の表示が全て大きくなりました。
昨日、突然Windows7の表示が全て大きくなりました。 「ようこそ」などの起動時の文字が通常の1.5倍くらいになっており、タスクバーやブラウザも解像度を変えてないのに大きく表示されるようになっていました。 色々調べて、解像度を高くしてみたのですが、横長になってモニタに合いません。 再起動するとまた同じ低い解像度に戻ってしまいます。 あまりパソコンに詳しくないのでどう対処していいのかわかりません。 以前はちゃんと画面にあった大きさで全てが表示されていました。何も触っていません。 Windows7を再インストールしたり、復元したりしたのですが解決しませんでした。 わかる範囲でスペックを書いておきます。 どなたか知恵をお貸しください。よろしくお願いします。 OS Windows7 64bit メモリ 4GB グラフィックボード NVINAI GeForce GT 240 インターネットのドスパラで購入しました。
- 締切済み
- level700115
- その他([技術者向] コンピューター)
- 回答数2
- 画像処理ソフト「縮小専用」について教えて下さい。
画像処理ソフト「縮小専用」について教えて下さい。 XPのユーザーです。 デジカメ画像をホームページ搭載やメール送信するための縮小ソフトとして「縮小専用。」を使わせていただいております。とても使いやすくて、しかも簡易HTMLまで作ってくれるので助かっております。 あまり意味を詮索しないで鷹揚に使ってるので、初歩的なことでしょうが教えてください。 1 設定に「次の範囲にピクセルサイズを収める」とあり、また、オプションにファイルサイズを指定する」とありますが、この二つのサイズの意味の違い 2 実際に送信する場合、画像のサイズが過大になると支障が生ずると聞いておりますが、どちらのことでしょうか。 3 このソフトを使って縮小すると、人物の顔が赤くなるようです。対策があるでしょうか。よろしくお願いします。
- ベストアンサー
- noname#204343
- その他([技術者向] コンピューター)
- 回答数2
- 複数のテーブルに対応したプロシージャは作成可能ですか?
複数のテーブルに対応したプロシージャは作成可能ですか? テーブルが T会社、T社員と2つあり、 フォームが FメインメニューとF会社とF社員で3つあります。(txtBoxは全て非連結) Fメインメニューのコマンドボタン(1)より下記のプロシージャでF会社のtxtBoxに主キーの番号を振っています。(以前このサイトで教えて頂いたもの(^_^;)) これを同じプロシージャでコマンドボタンによって、元になるテーブルや出力先のフォームを切り替て、Fメインメニューのコマンドボタン(2)でF社員のtxtBoxにT社員の最大数を振る事は可能ですか? 独学でやっている素人です。お力添え宜しくお願いいたします。 Public Function 新規会社CD() As String Dim l_int現在の最大 As Long l_int現在の最大 = CLng(Nz(DMax("会社コード", "T会社"), "0")) 新規会社CD = Format$(l_int現在の最大 + 1, "000") End Function Public Sub 新規会社CD挿入() Dim l_strSQL As String l_strSQL = l_strSQL & "INSERT INTO T会社(会社コード)" & vbCrLf l_strSQL = l_strSQL & "VALUES ('" & 新規会社ID() & "')" & vbCrLf CurrentDb.Execute l_strSQL End Sub
- ベストアンサー
- KOUSUKE0409
- Visual Basic
- 回答数2
- 複数のテーブルに対応したプロシージャは作成可能ですか?
複数のテーブルに対応したプロシージャは作成可能ですか? テーブルが T会社、T社員と2つあり、 フォームが FメインメニューとF会社とF社員で3つあります。(txtBoxは全て非連結) Fメインメニューのコマンドボタン(1)より下記のプロシージャでF会社のtxtBoxに主キーの番号を振っています。(以前このサイトで教えて頂いたもの(^_^;)) これを同じプロシージャでコマンドボタンによって、元になるテーブルや出力先のフォームを切り替て、Fメインメニューのコマンドボタン(2)でF社員のtxtBoxにT社員の最大数を振る事は可能ですか? 独学でやっている素人です。お力添え宜しくお願いいたします。 Public Function 新規会社CD() As String Dim l_int現在の最大 As Long l_int現在の最大 = CLng(Nz(DMax("会社コード", "T会社"), "0")) 新規会社CD = Format$(l_int現在の最大 + 1, "000") End Function Public Sub 新規会社CD挿入() Dim l_strSQL As String l_strSQL = l_strSQL & "INSERT INTO T会社(会社コード)" & vbCrLf l_strSQL = l_strSQL & "VALUES ('" & 新規会社ID() & "')" & vbCrLf CurrentDb.Execute l_strSQL End Sub
- ベストアンサー
- KOUSUKE0409
- Visual Basic
- 回答数2
- Accessで他アプリケーションのパラメータの取得をしているのですがう
Accessで他アプリケーションのパラメータの取得をしているのですがうまく値が取れません 他アプリケーション(VB)から Accessを起動させてパラメータを送っているのですが Access起動時に cData = Trim$(Command) と記述しても cData の中身が空っぽです どのようにしたら取得できるのでしょうか?
- ベストアンサー
- goookeiko
- その他(データベース)
- 回答数1
- 失った文書の復元
失った文書の復元 「名前を書いて保存」すべきところで、誤って「上書き保存」をしてしまい、 元の文書が消えてしまいました。 失われた文書を復元することはできますか?
- ベストアンサー
- Bella924
- ハードウェア・サーバー
- 回答数1
- UWSCのスクリプトを体系だてて学べるサイトや書籍を教えて下さい。
UWSCのスクリプトを体系だてて学べるサイトや書籍を教えて下さい。 ※タイトルが分かりにくかったので再投稿します。 インターネットでの操作やエクセルの操作等の定型作業をするのに、 RocketMouseという自動操縦ソフトを使っています。 もう少し複雑な条件を組んだり、高度な操作をしたいのですが、 UWSCというソフトの存在を知りまして、ぜひ使いこなしたいです。 しかし、ヘルプに書いてあるスクリプトの解説は 私のレベルではなかなか理解できなくて困っています。 もう少し基本的な知識から体系だてて勉強して行きたいです。 そのような知識を学べるサイトや書籍をご存知でしたら教えて下さい。 ○UWSCスクリプトの解説 http://big.tm.land.to/handbook/uwsc.htm このサイトは実際のスクリプトを使って丁寧に解説してあるので とても分かりやすく基本的なスクリプトの書き方は理解出来ました。 このくらいのレベルなら理解できるので、 他にも多くのスクリプトを学んで行きたいです。 よろしくお願いします。
- 締切済み
- relaxumasa
- その他(プログラミング・開発)
- 回答数2
- 初心者です。
初心者です。 EXCELマクロから特定のACCESSファイルを開きたい。 以下のマクロでACCESSを起動させることは可能ですが、 特定のファイル「test.mdb」(例)を起動させる方法をご伝授お願いします。 Sub Macro() Application.ActivateMicrosoftApp xlMicrosoftAccess End Sub
- ベストアンサー
- tichirou
- Visual Basic
- 回答数1
- 富士通FMV-NF40Yを使用しています
富士通FMV-NF40Yを使用しています バックライト・インバーター不良みたいで 修理見積もりしたら3万位と言われました そこで自分で交換してみようと思います 液晶の分解は大変なので 同じ機種のジャンク品を買ってきて ディスプレイ全体をまるごと交換しようと思います ・本体からディスプレイをはずす方法 ・インバーターが付いている場所(インバーターが本体に付いている場合はジャンク品だとそれ自体もジャンクかもしれないですので) を教えていただけないでしょうか? どうかよろしくお願い致します
- ベストアンサー
- tatumai050
- その他([技術者向] コンピューター)
- 回答数1
- 内蔵ハードディスクの交換について質問します
内蔵ハードディスクの交換について質問します PCはデル製DIMENSION C521です 交換するのはWINDOWSが入っているドライブをそのまま外して、新しい空のドライブと交換したいと思っています HDD交換するにあたってオーナーズマニュアルを読んだのですが気になる点がありました 「プライマリドライブを取り付けた場合は、起動可能なメディアをお使いの起動ドライブに挿入します。」 と書いてあったのですが、これはどういう意味なのでしょうか? HDD交換には起動ディスクが必要という事でしょうか?
- 締切済み
- katan3939
- ハードウェア・サーバー
- 回答数3
- 物凄く気持ち悪いです。
物凄く気持ち悪いです。 私はGMailを使っているのですが、 先日GMailにログインしてみると、発信先が自分のアドレスからのMailが届いて、「貴方のMailは全て見さしてもらった」みたいな内容のMailが入っていました。送信履歴を見ると確かに私のアドレスから送られているようです。大手のネットカフェでログインした事があるのですが、その時はログアウトした後、しっかり履歴を消しましたし、念のために再起動も行いました。(再起動するとデータは初期化されるので)なのに何故第三者が私のアカウントに侵入出来たのか、、。パスワードは89898989だったのですが、その単純な羅列がいけなかったのでしょうか、、しかしGMailには、何度もパスワードを間違えるとログインできなくなるはずですが、、 何故入り込めたのか、、 ちなみに私はパソコンを持っていません。会社のパソコンからGMailをログインした事も一度もありません。iPhoneからGMailを転送しています。そのiPhoneにもしっかりパスワードをかけており、他の人に触らせた事はありません。
- ADOレコードセットをExcelファイルへエクスポート
ADOレコードセットをExcelファイルへエクスポート ADOのレコードセットをExcelファイルへ出力したいと考えています。 レコードセットを使用した場合、TransferSpreadsheet の様なメソッドは使えないのでしょうか? ファイルサーバーにAccessクエリを作成する事も考えたのですが、多数で使用する為、 トラブルが怖いので避けました。 レコードセットを直接出力できるメソッドor関数等はないものでしょうか? アドバイスよろしくお願いいたします。 m(__)m
- ベストアンサー
- abuhiro
- その他(プログラミング・開発)
- 回答数1