次へ  ]
358272件中 181~200件目
  • ブログのキーワードについて

    ブログの書き方についての質問です。 ブログを始めたばかりで、知らないことが多く、SEO対策について知りたいと思い、調べてたところキーワードが大事という事を見つけました。 そのキーワードについてなのですが、 キーワードとは、どこに記載したものがSEOに効果が反映するのでしょうか? タイトルと本文だけなのか、それとも他の部分にもあるのでしょうか? ブログはWordPressで書いております。 あまりに無知で初歩的な質問ですが、ご回答のほどよろしくお願いいたします 。

    2019/10/29 17:27
  • SQL SERVER IPアドレス接続

    SQLSERVER2014 EXPRESSですが、 名前付きインスタンスでSQL2014でインストールしました。 IPアドレスで接続するときは、サーバー名にどう入力したら良いのですか? XXX.XXX.XXX.XXX\SQL2014ではだめでした。 TCP/IPは有効にしています。 宜しくお願いします

    2019/10/29 12:26
  • perl

    net::sftp::foreignでperl上からperlスクリプトを新規作成したり編集すると、500エラーになりますが、なにが原因なんでしょうか?

    2019/10/29 12:15
  • この女優の名前を知りたいです!

    ヤフー知恵袋やpornhubの投稿主に質問をしたが返ってきません、知っていたら教えて欲しいです!

    2019/10/29 00:43
  • Wiresharkの無線アダプターの選択について

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

    2019/10/28 23:49
  • 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
  • UDPのローカルポート

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

    2019/10/27 10:12
  • 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
  • CATIA ドラフティング アイソメ図の配置

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

    2019/10/26 07:57
  • 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
  • ご使用のブラウザーはあなたの所属組織に管理…

    こんばんは。Windows10 home版 64ビット、ウイルスバスター使用、Firefox70.0です。 今日、Firefoxを70にしました。そこで気づいたのですが、まず、「Firefoxについて(A)」が、FirefoxQuantumではなく、FirefoxBrowserと表記が変わっている事。 そしてもう一つが、オプションを開いて一般を選択すると、「ご使用のブラウザーはあなたの所属組織に管理されています。」と出る事。 70.0はFirefoxQuantumではなくなったのでしょうか?そのままQuantumであるならば今さらBrowser表記に変えたのは何故でしょう?ブラウザですね、Firefoxの。解っています。なのに変えたのは何か意味があるのでしょうか? >>https://www.clear-code.com/blog/2018/5/12.html もう一つ、上記で「法人利用者向けに設定を集中管理する新しい仕組みである」とありますが、PCは個人使用です。どこかに所属した覚えはありません。 ポリシー名:Certificates 値:ImportEnterpriseRoots となっています。 PCが乗っ取られたかとウイルスチェックしましたが問題ありませんでした。個人使用のPCは何か一定の所に強制的に所属してしまう仕様?自分はどこに所属したのでしょうか? 解る人、教えて下さい。お願いします。

    2019/10/24 21:02

ピックアップ