次へ  ]
358178件中 81~100件目
  • Wiresharkの無線アダプターの選択について

    【環境】Windows 10 Professional(バージョン1903 OSビルド18362.418),Wireshark Version 3.0.6 (v3.0.6-0-g908c8e357d0f) 【ご教示いただきたい点】 以前のバージョンではインターフェイスで接続されているネットワークアダプターを選択することができましたが、「有線」のみで「無線」がなく、無線アダプターが表示されません。以前は、無線アダプターのキャプチャーを行えていましたが、仕様が変わり取得できなくなったのでしょうか。

    2019/10/28 23:49
  • gifファイルの顔だけを変える、スマホアプリってあ

    gifファイルの顔だけを変える、スマホアプリってありますか? PCでないとソフトありませんか?

    2019/10/28 16:42
  • Excel  VBAのマクロについて

    以下のようなマクロを作りました。 P4に開始番号P6に終わりの番号があるのですが、P4=P6、つまり、一つだけのシートを作成する分には問題なく動きます。しかしP4に1、P6に5と範囲を増やすとエラーが出て動きません。どこをなおしたらよろしいでしょうか? Option Explicit Sub 一括() Dim I As Worksheet Dim SheetName As String Dim Prompt As String Dim Col As Integer Dim Cell As Range Dim Row As Long Dim hani As Long For hani = Range("P4").Value To Range("P6").Value Set I = ActiveSheet SheetName = Cells(hani + 4, "K").Value & "(" & Cells(hani + 4, "B") & ")" Prompt = SheetName & "が存在します。" Sheets("基本シート").Copy After:=Sheets("基本シート") On Error GoTo 100 ActiveSheet.Name = SheetName On Error GoTo 0 Range("X3") = I.Cells(hani + 4, "B") Range("E8") = I.Cells(hani + 4, "C") Range("A13") = I.Cells(hani + 4, "D") For Col = 0 To 8 Step 4 Set Cell = I.Cells(hani + 4, "D").Offset(, Col) If Cell > 0 Then Prompt = "該当する日付がありません。" & Cell.Address On Error GoTo 100 Row = WorksheetFunction.Match(Cell, [A:A], 0) On Error GoTo 0 Cells(Row, "E") = I.Cells(hani + 4, "E").Offset(, Col) Cells(Row, "H") = I.Cells(hani + 4, "F").Offset(, Col) If Col < 8 Then Cells(Row, "Y") = I.Cells(hani + 4, "G").Offset(, Col) End If End If Next Col Next hani End 100 If Err <> 1004 Then Error Err End End If MsgBox Prompt, vbCritical Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Sheets(1).Select End Sub

    2019/10/28 14:18
  • RSSフィードで最新情報だけを取得する仕組みは?

    新しい情報ってどうやって識別して、取得しているのでしょうか? 多分、日付ではないから、 古い情報をどこかに保存しておいて、比較しているのでしょうか?

    2019/10/28 14:12
  • ZoneAlarm Security 英語版フリー

    私は、現在英語版のフリーソフト「ZoneAlarm Security」を使っているのですが! Dドライブに「SandBlastBackup」と言うフォルダーが作られていて!500MB以上の容量を喰ってるのですが!これはセキュリティー上に於いて必用不可欠なフォルダーなのでしょうか?これは最近になって気付いたんです!ご存知の方は詳細に教えて下さい!削除しないでこのまま使っていった方が良いのでしょうか?・・・

    2019/10/28 13:33
  • フレッツ・VPN ワイドのセキュリティ

    NTT東日本のフレッツ・VPN ワイド とビジネスイーサ ワイドとでは、 セキュリティ(情報漏洩・盗難、不正アクセスなど)の点ではビジネス イーサ の方が優れているという位置づけのようです。 とは言っても、フレッツ・VPNワイドも「セキュアな通信が可能」と 謳っています。ビジネスイーサ ワイドと比較したとき、セキュリティ面で フレッツ・VPNワイドの方が劣っているところがあるとすれば、どう いったところがあるでしょうか?

    2019/10/27 21:54
  • 過去のリンクhttp://okwave.jp/qa

    過去のリンクhttp://okwave.jp/qa9671557.html いつもありがとうございます。今回はシート1のA3セルに4901777という数字を入れた時にC4セルに改行された時にNAME1と表示されるコード、、なのですが、試作だけにコードの見映えがよくありません。何十何百となった時にコードが冗長化しそうです。スリムなコードにするにはどうしたら良いでしょうか? よろしくお願いします^^ ' ///Sheet1/// Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim time7 As Range For Each time7 In Target If time7.Column = 1 Then time7.Offset(0, 4).Value = Format(Now, "Short Time") & vbCrLf & _ Format(Now, "yyyy/mm/dd hh:nn:ss AM/PM") End If Application.EnableEvents = False Application.EnableEvents = True Next time7 '(1)シートを変数にセット Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") '(2)シートを指定してデータを転記 ws2.Range("A3:E3").Value = ws1.Range("A3:E3 ").Value Set ws1 = Nothing Set ws2 = Nothing End Sub Private Sub Worksheet_Activate() ' ' 新規行挿入 ' ' Worksheets("Sheet2").Range("3:3").Insert Sheets("Sheet1").Range("H3").Select ActiveCell.FormulaR1C1 = "5" Sheets("Sheet1").Range("E3").Select Selection.ClearContents Dim str_Left As String 'セルE4に文字列、セルH4に数字を予め入れておくこと。 str_Left = Left(Cells(4, 5), Cells(4, 8)) MsgBox str_Left & vbCrLf & " " & "OKボタンを押してください!" Sheets("Sheet1").Range("A3").Select Dim se_r As String se_r = Application.InputBox("バーコードを入力してください") Select Case se_r Case "False" MsgBox "キャンセルされました" Case "" MsgBox "空欄が入力されました" Case Else Range("A3").Value = se_r End Select End Sub ' ///Sheet2/// Private Sub Worksheet_Activate() Dim Emp(1 To 300) As String Dim msg As String Dim i, i2, Cnt As Integer Dim N_In As Variant For i = 3 To 3 If IsEmpty(Cells(i, 1).Value) = False Then 'ここで空欄判定 Worksheets("Sheet1").Range("3:3").Insert '対象セルアドレスを改行処理 End If Application.EnableEvents = True '(1)シートを変数にセット Dim ws1 As Worksheet Dim ws2 As Worksheet Dim st1, s, i3 As Long Dim Bst As Range Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") '(2)シートを指定してデータを転記 st1 = ws1.Cells(Rows.Count, "E").End(xlUp).Row 'A列の最終行を設定する s = 3 For i3 = 3 To st1 Set Bst = ws2.Columns("E").Find(What:=ws1.Cells(i3, "E"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) 'A列とE列を比較 If Bst Is Nothing Then '比較して無い場合は、下記を実行 ws2.Cells(s, "A") = ws1.Cells(i3, "A") '追加する文字を転記する。(コード) ws2.Cells(s, "C") = Mid(ws1.Cells(i3, "A"), 3, 5) '追加する文字を転記する。(コード2) s = s + 1 End If Next i3 'A列データの最終行までループ Next i ws2.Range("C3:C300").Replace What:="01777", Replacement:="NAME1", LookAt:=xlPart, MatchCase:=True ws1.Range("C4").Value = ws2.Range("C3").Value ws1.Activate Set ws1 = Nothing Set ws2 = Nothing End Sub

    2019/10/27 19:24
  • 複数の項目をデータベースから同時に取得する方法

    入力画面で選択された複数の項目を、DBから同時に取得したいです。 よろしくお願いいたします。 ### ポスグレを用いてDBを作成しました。テーブルの名前はmydbです。 ### 次は入力画面です。 <項目選択> □ 名前 □  住所 □ 性別 □ 生年月日 □ 出身地 □ 趣味 入力画面から編集したい項目を選択します。会員コードは恒常なので選択項目に含まれていません。 そして、入力画面から複数の項目を同時に選択できるようにこういうふうにソースコード書きました。 ### JSPのform文です。 <br><input type="checkbox" name="item" value="name">名前</br> <br><input type="checkbox" name="item" value="address">住所</br> <br><input type="checkbox" name="item" value="gender">性別</br> <br><input type="checkbox" name="item" value="birthday">誕生日</br> <br><input type="checkbox" name="item" value="birthplace">出身地</br> <br><input type="checkbox" name="item" value="hobby">趣味</br> コード ### サーブレットのソースコードです。 public viod doPost(HttpServletRequest req, HttpServletResponse res) throws ServletException,IOException{ String[]checekedItems = req.getParameterValues("item"); System.out.println("checked item is"); for(String item : checkedItems){ System.out.println("[" + item + "]"); } } } コード ### ユーザーは入力画面でどの項目を選択するかわからないので、選択項目は変数「item」になってます。 ユーザーに選択された項目のみをDBから取得し、出力画面で表示してほしいです。 変数itemをDBから取得する方法をわからないです。例えば、ユーザーは生年月日と出身地を選択したらどうすれば変数itemをbirthdayとbirthplaceにしてDBから取り出すことができます? よろしくお願いいたします。** **

    2019/10/27 18:38
  • UDPのローカルポート

    ローカルポートは閉じた方がいいポートはあるのでしょうか? あるとしたら閉じておいた方がいいのでしょうか? それにより起きることによって使いやすさとしての利便性は失われるのでしょうか。 因みに135番ポートの塞ぎ方が解りません(ローカルポートの) シェアウェア(kaspersky)でのフィルタリングができないみたいです。

    2019/10/27 10:12
  • 液晶モニタを閉じると解像度が変わる

    ご存じの方がいたら教えてください。 ノートPCに Ubuntu18.4 を導入し、別PCから AnyDesk でリモート接続しています。 液晶モニタを閉じてもサスペンドしないようにしました。 ノートPCの解像度は3200×1800ですが、液晶モニタを閉じてリモート接続しているPC側で確認すると、解像度が著しく低下(HD、1280×720くらいに?)します。 設定で解像度を見ると、「画面情報が取得できない」とメッセージ表示されています。 液晶モニタを閉じても元の高解像度のままリモート接続表示できるようにするためにはどうしたら良いのでしょうか?

    2019/10/27 09:22
  • ExcelのVBAについてです。シート1と2を作成

    ExcelのVBAについてです。シート1と2を作成し、シート1にバーコードまたはキーボードで入力します。シート1は入力専用かつ入力した分の早見表で、実際にはシート2に転記仕訳して、シート3以降に表を作成したいです。使い方はシート1に入力またはシート2をタップまたはクリックすると入力(画面)になります。以前の質問の回答を参考に必要最低限に改良しています。パッと見で構いません、何か不具合は見付からないでしょうか? '///Sheet1/// Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim time7 As Range For Each time7 In Target If time7.Column = 1 Then time7.Offset(0, 4).Value = Format(Now, "Short Time") & vbCrLf & _ Format(Now, "yyyy/mm/dd hh:nn:ss AM/PM") End If Application.EnableEvents = False Application.EnableEvents = True Next time7 '(1)シートを変数にセット Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") '(2)シートを指定してデータを転記 ws2.Range("A3:H3").Value = ws1.Range("A3:H3 ").Value End Sub Private Sub Worksheet_Activate() ' ' 新規行挿入 ' ' Worksheets("Sheet2").Range("3:3").Insert Sheets("Sheet1").Range("H3").Select ActiveCell.FormulaR1C1 = "5" Sheets("Sheet1").Range("E3").Select Selection.ClearContents Dim str_Left As String 'セルE4に文字列、セルH4に数字を予め入れておくこと。 str_Left = Left(Cells(4, 5), Cells(4, 8)) MsgBox str_Left & vbCrLf & " " & "OKボタンを押してください!" Sheets("Sheet1").Range("A3").Select Dim se_r As String se_r = Application.InputBox("バーコードを入力してください") Select Case se_r Case "False" MsgBox "キャンセルされました" Case "" MsgBox "空欄が入力されました" Case Else Range("A3").Value = se_r End Select End Sub ' ///Sheet2/// Private Sub Worksheet_Activate() Dim Emp(1 To 300) As String Dim msg As String Dim i, i2, Cnt As Integer Dim N_In As Variant For i = 3 To 3 If IsEmpty(Cells(i, 1).Value) = False Then 'ここで空欄判定 Worksheets("Sheet1").Range("3:3").Insert '対象セルアドレスを改行処理 End If '(1)シートを変数にセット Dim ws1 As Worksheet Dim ws2 As Worksheet Dim st1, s, i3 As Long Dim Bst As Range Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") '(2)シートを指定してデータを転記 st1 = ws1.Cells(Rows.Count, "E").End(xlUp).Row 'A列の最終行を設定する s = 3 For i3 = 3 To st1 Set Bst = ws2.Columns("E").Find(What:=ws1.Cells(i3, "E"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) シート間のE列を比較 If Bst Is Nothing Then '比較して無い場合は、下記を実行 ws1.Cells(s, "A") = ws1.Cells(i3, "A") '追加する文字を転記する。(コード) s = s + 1 End If Next i3 Next i '(1)シートを変数にセット Dim ws1_ As Worksheet Set ws1_ = Worksheets("Sheet1") ws1_.Activate End Sub

    2019/10/27 02:33
  • マウントファイルの異常

    isoデータをwin10の機能でマウントして使っていたら、翌日おかしなことになりました。 シャットダウン&起動を行っています。 マウントしていたドライブが?マークがついてその下にさらに変なフォルダができています。 isoデータにもアクセスできずこのおかしなドライブとフォルダも消せません。 どうすれば治せるでしょうか? ウイルスソフトはマカフィーを使っています、強制停止の方法も知りません。

    2019/10/26 11:52
  • ExcelのVBAについて(勉強中のです。)

    ExcelのVBAについて(勉強中のです。) ここからコード3以降に入力したコードを抜き出してデータ表を作成しそれを保存するコードを作成したいです。例えばCSV形式にするとか? データ表は1日分の表示で、保存して週間や月間または統計データまでを視野にいれています。今回は保存する所です。。 利用しやすい状態と保存形式で、よろしくお願いします。データは生活記録みたいなものです。何したどうしたどうなった? ※大分分岐する予定で、作成中であり、今回はコードの整理は不要です。 '///Sheet1/// Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim time7 As Range For Each time7 In Target If time7.Column = 1 Then time7.Offset(0, 4).Value = Format(Now, "Short Time") & vbCrLf & _ Format(Now, "yyyy/mm/dd hh:nn:ss AM/PM") End If Application.EnableEvents = False Application.EnableEvents = True Next time7 '(1)シートを変数にセット Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") '(2)シートを指定してデータを転記 ws2.Range("A3:H3").Value = ws1.Range("A3:H3 ").Value End Sub Private Sub Worksheet_Activate() ' ' 新規行挿入 ' ' Worksheets("Sheet2").Range("3:3").Insert Sheets("Sheet1").Range("H3").Select ActiveCell.FormulaR1C1 = "5" Sheets("Sheet1").Range("E3").Select Selection.ClearContents Dim str_Left As String 'セルE4に文字列、セルH4に数字を予め入れておくこと。 str_Left = Left(Cells(4, 5), Cells(4, 8)) MsgBox str_Left & vbCrLf & " " & "OKボタンを押してください!" Sheets("Sheet1").Range("A3").Select Dim se_r As String se_r = Application.InputBox("バーコードを入力してください") Select Case se_r Case "False" MsgBox "キャンセルされました" Case "" MsgBox "空欄が入力されました" Case Else Range("A3").Value = se_r End Select End Sub ' ///Sheet2/// Private Sub Worksheet_Activate() Dim Emp(1 To 300) As String Dim msg As String Dim i, i2, Cnt As Integer Dim N_In As Variant For i = 3 To 3 If IsEmpty(Cells(i, 1).Value) = False Then 'ここで空欄判定 Worksheets("Sheet1").Range("3:3").Insert '対象セルアドレスを改行処理 End If Next i '(1)シートを変数にセット Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") ws1.Activate End Sub

    2019/10/26 10:28
  • 形式手法の活用事例について

    暗証番号入力を行わずに現金を引き出すATM操作手順が、形式手法の適用にて発見された、という記述をどこかで見かけた記憶があるのですが、ソースご存じの方お願いします。

    2019/10/26 09:41
  • CATIA ドラフティング アイソメ図の配置

    CATIAのスクールに行ってから、最近仕事につき始めたものです。スクールでは操作を習うことは出来ましたが、実務となると全然違い戸惑うことが多いです。 職種は自動車関係です。 質問させて頂きたいのは、 現場向けに部品の取り付け指示図を作成したいのですが、 アイソメ図を配置して品番を書いていこうと思っています。 アイソメ図だけでは見えにくい箇所もあるため、 アイソメ図を反対側から見た図も作成する予定です。 ハンドでモデルを回してからアイソメ図の反対側を表示させると、モデルが傾いてしまうので設定でどうにかする方法があるのでしたら、ご教授いただけないでしょうか。 方向指示ビューの使い方がわからず、これで設定できるのでしょうか?

    2019/10/26 07:57
  • C# エンティティフレームワークについて

    環境:C# MVC5 VS2017 エンティティフレームワーク 上記環境にてエンティティのアノテーションについて質問させてください。 エンティティにあるプロパティにNotMappedアノテーションを付け、データベースにマップしないようにしたい。 ただし、読み込み時にはマッピングし、更新時にはマッピングをしないようにしたい。 JAVAならばそれぞれに設定ができるようだが、C#の環境では読み込み時、書き込み時と分けての設定はできないのでしょうか? なぜ、そうしたいのかといいますと、読み込みにはLINQでJOINしエンティティにセットしたい、 ただし、同じエンティティで更新するために、このままでは存在しないプロパティが存在するため SaveChangeメソッドにてエラーとなるとため。 分けてできる方法はないかと思い質問をさせていただきました。 ナビゲーションプロパティを使えばよいのですが、使わずにできる方法はないかと調べたのですが、なかなか良い方法が見つかりません。 現状ではDB上でビューを作成する。 またはLINQではなくSQLにて実行するくらいしか思いつきません。 何か良い方法はないかアドバイスを頂けると助かります。 どうぞよろしくお願いします。

    2019/10/26 01:03
  • OKWAVEから勝手にログアウトされてしまう

    OKWAVEにログインしていてもページを変えるだけでログアウトされてしまう もちろん、ログアウトボタンには触ってない ヘタするとブラウザの再読み込みだけでログアウトされる 何故でしょう? ブラウザは Microsoft Edge Win10 Pro 64bit Ver1903 OSビルド 18362.418

    2019/10/25 22:39
  • C# インスタンス

    インスタンス化されたものが複数あって、その中でプロパティの値が条件に合うものを検索する方法ってありますか? 条件に合うものをリスト化できると良いです。 よろしくお願いします。

    2019/10/25 15:25
  • visual C# 保存

    EXCELのように作成した図や入力した文字などを保存して、再度開く事ができる機能を持たせたアプリケーションを作るにはどのような方法があるのでしょうか。なるべく詳しく説明して頂けると助かります。 よろしくお願いします。

    2019/10/25 14:49
  • SQL SERVER2012 EXPRESS

    昨日、Windowsのアップデート後 SQLSERVERサービスが起動しないので サービズ画面から手動で起動しようとすると、「ローカルコンピュータではSQLSERVERを開始できません・・」のエラーで開始できません。 ネットで検索していると、SQLServer構成マネージャを呼び出し SQLServerのプロパテイからログオンのビルトインアカウントを ネットワークサービスとして実行したところ、実行開始ができるように なりました。ありがとうございました。・・があったので SQL構成マネージャーを探したところ、インストール時はあったのですが、 なぜか見当たりません。 windows updateでおかしくなってのでしょうか? 解決策を教えてください よろしくお願いします

    2019/10/25 13:17

ピックアップ