次へ  ]
358045件中 201~220件目
  • コードの変な部分を教えて欲しいです

    色々非効率な部分とか守るべき部分を守れてないと思いますが、個人で遊んでた物なので今回はそれで怒らないでほしいです。 コード https://www.evernote.com/shard/s470/sh/e558cb77-e0f4-46bd-afe6-bcfe2b22cb24/37ba1eb51031d033bb3d95c2a42bbc32 obaba~はすべてコマンドボタンです。TextBox1はテキストボックス。ユーザーフォームです。 テキストボックス内にテキストを入力してエンターを押した後、コマンドボタン obaba4を選択状態にしたく、「obaba4.SetFocus」を試しました(最後の行)。使い始めは思っていた通りに動いたのですが、しばらく試していると、コマンドボタン「obaba2」に選択状態が移るようになりました。実行し直すと、再び思っていた通りの動きに戻りました。 原因がわからないのですが、何かわかる方いらっしゃいましたらお願いします。

    • ベストアンサー
    • 暇なときにでも
    • noname#238480
    • Visual Basic
    • 回答4
    2019/08/01 13:16
  • おすすめのCADソフト

    お世話になります。 次のような作業を行うのに適当なソフトをご紹介ください。 1/500の地積測量図と1/200の住宅平面図があります。 これをそれぞれPDF等に変換しパソコンに読み込み、その図形の外周のみを直線等でなぞり、この直線等でなぞった地積測量図に同じく直線等でなぞった住宅平面図を合わせ、車庫、排水系統を付け加えて、1/100の敷地内の住宅配置図を作成する。と言うものです。 CADソフトになろうかと思いますが、フリーもしくは低価格なものをお願いいたします。 パソコンは、Windows。所有する機器での図面の変換はPDF、TIFF、JPEGが可能です。 返信に時間がかかってしまうこともあるかと思いますが、よろしくお願いいたします。

    2019/07/31 14:34
  • LATEX のエラーメッセージ

    Latex 初心者です。 ちょっとした会社の製品マニュアルを作っていますが、以下のようなメッセージが出てきて、コンパイルできなくなってしまいました。 file ended while scanning use of \@iiiparbox. メッセージの意味は何なのか、どうすればコンパイルできるのか、ご存知の方がいらっしゃいましたら、ご教授お願いいたします。

    2019/07/31 10:57
  • ポート開放でバレてはいけない情報

    ネット接続のカテゴリを見ていると、「ポート開放をしたいのですが宛先ポート番号を○番にしても成功しない」とか「宛先Ipアドレスは192.168.1.80にしました」とか書かれていたりしますが、 こういう情報って自分で言ったら外部からの不正アクセスを許してしまうのではないですか?

    2019/07/31 00:47
  • if分で複数条件の記述方法を教えてください。

    Accessの検索フォームに締日入力用のコンボボックスと請求日の日付入力ボックスを配置しました。 締日が月末の場合、コンボボックスから31を選択すると請求日日付入力ボックスに前月の月末が出て、それ以外の締日(例として25日)を選択すると、前月の25日が入るようにVBAを作成しました。 尚、コンボボックス(close1)は20や25,27等の締日が選択できます。 下記VBAは先月のみ対応します。 締日が選択できるコンボボックス名は(close1)、日付入力ボックス名は(day1)です。 Private Sub close1_AfterUpdate() Dim i As Date i = DateSerial(Year(Date), Month(Date) - 1, [close1]) If (Me!close1) <> 31 Then Me!day1 = i Else Me!day1 = DateSerial(Year(Date), Month(Date), 0) End If End Sub これを今月の締日かどうかのmsgboxを表示して、今月なら今月の請求日付、違う場合は先月の請求日付を日付入力ボックスに入れたいのですが、どうすればよいでしょうか? おそらく下の様な流れではと思うのですが、条件が少し複雑なため、どうまとめたら良いかわかりません。 Dim rc as Integer if (Me!close1) <> 0 then ‘締日が0以外ならテキストボックスを表示させたいです' rc = msgbox (今月の締日ですか?, vbYesNo) If rc = vbYes then "今月の請求日をday1に表示" else "先月の請求日をday1に表示" よろしくお願いします。

    2019/07/30 23:57
  • ウイルスバスターコーポレートエディションについて

    皆様、よろしくお願い致します (現状を記します) (1)ウイルスバスター Corp.サーバのバージョン11.0SP1をWindowsServer2012R2にインストールしております (2)上記サーバーに繋がっているクライアントにウイルスバスター コーポレートエディション クライアントをインストール方法しております。 (3)今回、リモートデスクトップ接続用のサーバーを追加する予定です (質問を記します) 上記(1)(3)のサーバーにもウイルスバスター コーポレートエディション クライアントをインストールする必要があるのでしょうか? 皆様、何かご教示頂ければ幸甚です。 よろしくお願い申し上げます。

    2019/07/30 18:06
  • ポート開放について

    windows7のパソコンから自宅のルータにログインして、パソコンのポート開放をしたとします。 この場合、このwindows 7だけではなく 自宅のルータに繋ぐスマホなども情報がだだ漏れに なってしまうのでしょうか? また、windows 7を初期化しても ポート開放設定は引き継がれますか?

    2019/07/30 17:55
  • FCスイッチ/SANスイッチ 違い

    こんにちは。 IT関係で使用するFCスイッチに関して、 FCスイッチとSANスイッチでは何が違うのでしょうか。 分かる方いたら教えてください

    2019/07/30 16:43
  • L2スイッチ/ハートビートについて

    こんにちは IT関係で使用するL2スイッチに関して、 L2スイッチの事をハートビートと言ったりするようなのですが 何が違うのでしょうか? L2スイッチが機器名称で、ハートビートがその機能とかでしょうか。 分かる方いたら教えてください

    2019/07/30 16:41
  • ExcelVBA 所属部署・権限別のシート表示

    VBA初心者です。 エクセルにログインフォームを実装しました。 IDとパスワードを入力してログインボタンを押下すると、ログイン情報が記述されたシートを参照し、IDとパスワードを照合してログインします。 現在、ログイン者が「管理者」権限であるとき、すべてのシートを表示します。 ログイン者が権限を持たない場合、ログイン者個人のシートが表示されるようになっています。 これに加え、「ログイン者が一定以上の役職(管理職)であれば同じ部署全員のシートを表示する(他部署は見れない)」構文を追加したいです。 Option Explicit Enum eColIndex id = 1 pass = 2 name = 3 dep = 4 post = 5 depcode = 6 postcode = 7 End Enum Private Sub Loginbtn_Click() Dim isAdmin As Boolean Dim isManage As Boolean Dim ws As Worksheet id = txtId.Text pass = txtPass.Text 'IDを検索しパスワードと照合 Dim idRow As Long Dim nameRow As Long On Error GoTo failed idRow = WorksheetFunction.Match(id, login.Columns(eColIndex.id), 0) If pass = login.Cells(idRow, eColIndex.pass) Then MsgBox "『" & login.Cells(idRow, eColIndex.name) & "』" & "でログインしました", vbInformation, "成功" Unload Me '入力されたIDから名前と部署と役職を参照する name = login.Cells(idRow, eColIndex.name) '入力ID行の3列目(氏名)のセルを参照 depcode = login.Cells(idRow, eColIndex.depcode) '入力ID行の6列目(部署コード)のセルを参照 postcode = login.Cells(idRow, eColIndex.postcode) '入力ID行の7列目(役職コード)のセルを参照 '所属・役職を判断 If depcode = "_ADM" Then isAdmin = True '部門コードが_ADMならシステム管理者 If postcode >= "J-3" Then isManage = True '役職コードがJ-3以上なら管理職 If isAdmin Then 'システム管理者なら For Each ws In Worksheets '全てのシートを ws.Visible = True '表示 Next ----------------------- ここに上述のシート表示の構文を記述したい ----------------------- Else 'いずれでもないなら個別シートを表示 On Error Resume Next 'エラートラップ開始 Set ws = Sheets(name) 'Sheets("氏名") On Error GoTo 0 'エラートラップ終了 If ws Is Nothing Then 'シートが無いなら MsgBox "ユーザーシートがありません" Application.Quit '終了 End End If ws.Visible = True 'ユーザーのシート表示 For Each ws In Worksheets '全てのシート If ws.name <> name Then ws.Visible = False 'シート名がユーザ名のシート以外Visible=False Next End If Application.Visible = True 'ブックを表示 Else failed: 'エラーになった場合 MsgBox "ログインに失敗しました", vbCritical, "失敗" End If End Sub 試行錯誤してみましたがさっぱりうまくいきません。 どうかよろしくお願いいたします。

    2019/07/30 12:00
  • データセット上のテーブルに列の挿入が出来ない。

    VB2005で作成されたアプリの改修を行っております。 データセット上に定義されているテーブル(テーブルアダプタ定義有り)に 列を挿入する事になり、当該テーブルに列を挿入した所、「列を挿入出来ま せんでした」のエラーメッセージが表示され、挿入が出来ません。 データアダプタのSQLに列を挿入しても、同じメッセージが表示され、 挿入出来ません。 データアダプタが定義されていないテーブルには、何のエラーも無く列を 挿入出来ます。 何か足りない手順等が有るのでしょうか?

    2019/07/30 11:44
  • イプシロン値を使った比較関数

    先日、↓でイプシロン値の記述方法を質問し、お陰様で一つ賢くなりました・・・ https://okwave.jp/qa/q9625188.html 今回、このイプシロン値を使用して2つの浮動小数点数の比較関数を作ってみました。 ところが、意図した結果になりません(数値により正しく判断できない場合がある) //倍精度浮動小数点数比較関数 //相対誤差内であれば、両者は等しいとする //戻り値 a=bのとき:0 a≠bのとき:0以外 #include <math.h> int CompareDoubleValue(const double a, const double b) { //引数の差の絶対値とイプシロン値を使用した相対誤差を比較する //1と引数の大きい方の数値を比較して、より大きい数値をイプシロン値 //と乗算して相対誤差とする if (fabs(a-b) <= (DBL_EPSILON*fmax(double(1), fmax(a, b)))) return(0); else return(-1) ; } ※fabs():倍精度浮動小数点数の絶対値を求める標準関数 ※fmax():2つの引数(倍精度浮動小数点数)の大きいほうの値を返す標準関数 何が悪いのかわからず困っております。 お教え頂けると幸いです。 よろしくお願いします。

    2019/07/30 09:20
  • certbot-autoで複数ドメインの証明書

    centos6+Apacheでcertbot-autoを使いSSL化をしようとしています。 hoge1.jp hoge2.com hoge2.jp の3つのドメインを一つのサーバーにて使用してます。 いろいろ試してみたところhoge1.jpはhttpsへリダイレクトできましたが、hoge2.comとhoge2.jpが警告が出る、または自動でhttps://hoge1.jpへリダイレクトされてしまい困っております。 検索してみてるのですがマルチドメインの方法は多数ありますが複数ドメインのほうは見つかりません。 うまく設定できたかた、ご教授いただけませんでしょうか。

    2019/07/29 23:41
  • Javaで正規表現を利用して日付を判定したいです

    今、次のようなプログラムがあります ~~~~~ package testprogramm; import java.io.*; public class Sample01 { public static void main(String[] args) { Sample01 nyuryoku = new Sample01(); nyuryoku.keyboardIn(); } String keyboardIn(){ String str=""; try{ BufferedReader br = new BufferedReader (new InputStreamReader(System.in)); System.out.println("生年月日を入力してください(西暦年/月/日):"); str = br.readLine(); System.out.println(str + " が入力されました。"); }catch(IOException e){ System.out.println("例外" + e + "が発生しました"); } finally{ return str; } } } ~~~~~ このプログラムの結果は「〇〇が入力されました」と、標準出力するだけの簡単なプログラムです。 現状、生年月日以外の、何でも入力できる状態になっております。 その状態に制約をかけたいのです。 例えば"1980/11/15"のように「yyyy/mm/dd」の形式であれば、 ------------- 正常に登録が完了しました。 ------------- と、表示され。 "23333"のように、「yyyy/mm/dd」の日付の形式で記載されていなかった場合、 ――――――――――――――――――― 正しい日付を入力してください: ――――――――――――――――――― と、再入力を促すような。 そういったユーザーが入力した値を判定するようなプログラムを書きたいのですが、どうしてもうまく書くことができません。 【Javaで正規表現】文字列をチェックするパターンの書き方とサンプル | 侍エンジニア塾ブログ(Samurai Blog) - プログラミング入門者向けサイト https://www.sejuku.net/blog/13215 に、日付をtrueとfalseで判定するプログラムは見つかったのですが。 これをどう活かせれば、メッセージを出し分けしたり再入力を促せるのかという繋ぎ込みができず…お力添えいただけますと幸いです。 よろしくお願い致します<m(__)m> ※OKWAVEより補足:「Webシステム開発」についての質問です。

    2019/07/29 19:12
  • 内部不正の調査について

    会社の情報システム部などにお勤めの方にお伺いしたいです。 自社内で「情報の持ち出し」のような問題が発生した疑いがある場合、どのように調査をしておりますでしょうか? 外部の専門会社に、すぐに依頼をしますか? 自分たちである程度の調査を進めるでしょうか? よろしくお願いします。

    2019/07/29 11:59
  • OKwaveって個人情報ってどこまで見れるのですか

    OKwaveって個人情報ってどこまで見れるのですか? その方の名前とかってでるんですか? 自分がよく質問してるのですが、相手からどこまで情報知られてるのか知りたいです。

    2019/07/29 11:52
  • メディアサーバー、アクセス拒否 PC詳しい方回答を

    Windows10のPCでメディアサーバーのフォルダをクリックしたら 「アクセス拒否 (フォルダ名)がお使いのPCへのアクセスを拒否しています。お使いのPCがアクセスできるようにするには、メディアサーバーの所有者に問い合わせてください。」 と表示されアクセスをブロックされてしまいます 所有者は私自身なのですが、この時の対処法を教えて下さい

    2019/07/29 00:17
  • SQL Serverマネジメントシステムで接続不可

    以前ローカルのSQL ServerへSSMSから アクセスできましたが、できなくなりました 対応方法を教えてください SQL Server への接続を確立しているときにネットワーク関連またはインスタンス固有のエラーが発生しました。サーバーが見つからないかアクセスできません。インスタンス名が正しいこと、および SQL Server がリモート接続を許可するように構成されていることを確認してください。 (provider: SQL Network Interfaces, error: 26 - 指定されたサーバーまたはインスタンスの位置を特定しているときにエラーが発生しました) (.Net SqlClient Data Provider)

    2019/07/28 21:27
  • 抽象データ型(構造)を分かりやすく教えてください

    スタック・キュー等のデータ構造は「抽象データ型(構造)」と呼ばれますが、この「抽象データ型(構造)」とは何なんでしょうか? 内部的に「データ構造」とその「操作のまとまり」がある形式の「データ型(構造)」ということなんでしょうか? 分かりやすい例えで教えてください。よろしくお願いいたします。

    2019/07/28 19:52
  • インターネット

    IP割り当てで自動を手動に切り替えて、IPV4を選んだ時にIPアドレスなどいろいろなことを入力する画面になります  IPアドレスなどの情報はどこから入手できますか?

    2019/07/28 15:28

ピックアップ