次へ  ]
358451件中 201~220件目
  • 00のアカウントが削除されましたって何?

    最近(例えば)アマゾンのアカウントが削除されましたと言うのが2件来たのですが これは、会員登録から削除されたと言う事なのですか? 初心者でわからないので教えて下さい。

    2019/12/18 12:45
  • ExcelVBA 二つのセルに入力された時の判定

    セルA1とA2両方に値が入力された時、セルA3に文字を入力するマクロを作りたいです。 下記プログラムで試しているのですが、ステップインで見ると最初のIFでTrue判定されてしまいます。 どうすればこの条件を満たすマクロになるのか、教えて頂けないでしょうか。 以上、宜しくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Or Intersect(Target, Range("A2")) Is Nothing Then Exit Sub Else If Range("A1").Value <> "" And Range("A2").Value <> "" Then Range("A3").Value = "入力済み" End If End If End Sub

    2019/12/18 09:16
  • value値がマイナス時、赤字で表示したい(js)

    web上でvalue値がマイナスの時、赤字で表示したいです。 入力値が変更された時に赤字で表示することはできましたが、 最初に入れておくvalue値がマイナスの時も、ページ読み込み時に赤字で表示させたいです。 下記、現在のコードです。 よろしくお願いします。 <input type="text" placeholder="0" value="-1234" onChange="FUNC(this)"> <script> function FUNC(obj){ if(obj.value -0 < 0){ obj.style.color = "red"; }else{ obj.style.color = "black"; } } </script>

    2019/12/17 17:04
  • js 正規表現

    下記のhtmlをinnerHTMLで取得しました。センチメートルからtd閉じタグの<の一つ前までの文字を削除したいです。str.replace(/セ.+</g<, ''<") こちらを試しましたが削除できませんでした。 よろしくお願いします。 "<td>22センチメートル 234234; ? (概算)34 </td> <td>23センチメートル 234234; ? (概算)93 </td> <td>24センチメートル 234234; ? (概算)645fail </td> <td>25センチメートル 234234; ? (概算)627 </td>"

    2019/12/17 15:01
  • VBScript について 初心者です

    会社内でmsgファイルから添付ファイルを抽出するVBScriptを以下のコードで利用させてもらっています。ただ、同じファイル名の場合は取出すことができません。アンケート.xlsx、アンケート(2).xlsx、などという形でもれなく取出せるようにできないでしょうか?よろしくお願いいたします。 Option Explicit Dim args Dim olApp Dim i Const SaveFolderPath = "C:\Test" '添付ファイルの保存先フォルダ(※要変更) Set args = WScript.Arguments If args.Count < 1 Then MsgBox "msgファイルを当スクリプトファイルにドラッグ&ドロップしてください。", vbExclamation + vbSystemModal WScript.Quit End If With CreateObject("Scripting.FileSystemObject") If .FolderExists(SaveFolderPath) = False Then MsgBox "添付ファイルの保存先フォルダが見つかりませんでした。" & vbCrLf & _ "処理を中止します。", vbCritical + vbSystemModal WScript.Quit End If Set olApp = CreateObject("Outlook.Application") For i = 0 To args.Count - 1 If .FileExists(args(i)) = True Then Select Case LCase(.GetExtensionName(args(i))) Case "msg" 'msgファイルのみ処理 SaveMsgAttachments olApp, args(i), AddPathSeparator(SaveFolderPath) End Select End If Next olApp.Quit End With MsgBox "処理が終了しました。", vbInformation + vbSystemModal Private Sub SaveMsgAttachments(ByVal OutlookApp, ByVal MsgFilePath, ByVal SaveFolderPath) Dim itm 'Outlook.MailItem Dim atc 'Outlook.Attachment Dim fn With OutlookApp.GetNamespace("MAPI") Set itm = .OpenSharedItem(MsgFilePath) Select Case LCase(TypeName(itm)) Case "mailitem" If itm.Attachments.Count < 1 Then MsgBox "添付ファイルがありません。" & vbCrLf & _ "(ファイル名:" & MsgFilePath & ")", vbExclamation + vbSystemModal Exit Sub Else With CreateObject("Scripting.FileSystemObject") For Each atc In itm.Attachments fn = SaveFolderPath & atc.FileName If .FileExists(fn) = True Then .DeleteFile fn, True '同名のファイルがあったら事前に削除 End If atc.SaveAsFile fn Next End With End If End Select End With End Sub Private Function AddPathSeparator(ByVal s) If Right(s, 1) <> ChrW(92) Then s = s & ChrW(92) AddPathSeparator = s End Function

    2019/12/17 10:52
  • デスクトップ買い替えについて

    デスクトップ買い替えについて どのメーカーが故障がすくなく安定していますか? 現在、NECを使っていますが不安定で使いにくいです。 Dell、マウスコンピーター、ソニー、東芝、その他 どのメーカーがいいですか? 余計なソフトが入っていないDell、マウスコンピーターの方が安定してますか?

    2019/12/17 10:34
  • ネットワークセキュリティについて

    お世話になります。 当社のシステムは現在サーバーはWindows Server 2012 R2 クライアントはWindows 10 or Windows 8.1(合計60台)の環境です。 メールおよびインターネット閲覧をプロキシ環境にして 強固なセキュリティ環境にしたいと考えています。 おすすめの商品がありましたら教えて頂けませんでしょうか。

    2019/12/16 15:00
  • chromiumを削除したい

    ウィンドウズ10を利用していてPDFのリーダーとして編集が便利なFoxitを利用しています。PDFを既定のプログラムでFoxitにしているのですが、最近開こうとしたらchromiumというブラウザで必ず開かれるようになりました。 chromiumをプログラムより削除したのですが、相変わらずPDFを開く際はchromiumになってしまいます。 削除しようと思い検索すると、削除できるフリーの海外のアプリケーション「IObit」等はどれも危険だと出てくるので、何がいいのかわからなくなります。 どうしたら削除できるのか、ご存知の方いらっしゃればお願いいたします。

    2019/12/16 12:16
  • Jupyter notebook上でのアニメ出力

    Jupyter notebookでグラフを出力しながら実習しているのですが、アニメを表示するところでエラーになります。 jupyte notebookのスクリプト抜粋 fig = plt.figure(figsize=(10,7)) anim = ani.FuncAnimation(fig, animate, frames=int(num_frame), blit=True) anim.save('likelihood.gif', writer='imagemagick', fps=1, dpi=64) ←ここ ↓ 実行結果エラーが出る。 エラーメッセージの抜粋 anim.save('likelihood.gif', writer='imagemagick', fps=1, dpi=64) ←ここ animation.py in _draw_frame(self, framedata) raise RuntimeError('The animation function must return a ''sequence of Artist objects.') 何か前提とされているものをimportしていないのか、あるいは外部のアニメ作成ツールを呼び出して利用したいけどできないと言っているのかだと思うのですが。 メッセージにimagemagickとかgifアニメとか割とおなじみの名前があり、外部を呼び出そうしているなと思ったのですが。pythonは外部のC++コンパイラを利用したりするのでその方向なのかなと思ったのですが。OSはWindows10です。 プロンプトではimagemagickというコマンドは起動しません。一応インストールはしているのですが、インストール先を見てもimagemagickという実行ファイルがないようなのですが。よろしくお願いします。

    2019/12/15 23:24
  • ブログのアクセスを増やす方法を知りたい

    趣味でJavaScriptのさまざまさ機能を紹介したブログを書いていますが、全くといっていいほどアクセスがありません。 何かいい方法はないでしょうか?

    2019/12/15 22:00
  • スマフォumidigi A5 pro時計を表示方法

    umidigi A5 proの待ち受け画面に時計を表示する方法を教えて下さい、デホルトでいつも時計を表示する方法です

    2019/12/15 15:19
  • プログラミング

    c言語プログラミングについて教えてください。 2次元配列で以下の様に数字の昇順(渦巻き状に)にアクセスするにはどうしたらいいでしょうか? 1 2 3 4 5 16 17 18 19 6 15 24 25 20 7 14 23 22 21 8 13 12 11 10 9

    2019/12/15 11:22
  • ページを閉じずYouTubeの読み込みを止めるには

    約200kbpsの低速回線下でのパソコンの利用では、ブラウザで通信したい時に別のアプリが通信しているとブラウザでの通信は滞ります。 逆のこともあるわけで、別のアプリで通信させたいのにchromeが通信しているとアプリが通信できなくて困ります。 普通は左上の×マークでサイトの読み込みを止めれますが、YouTubeにアクセスした後は×マークで読み込みを止めても通信しているようで、実際にはどこのサイトかは分かりませんが、リソースモニターでチェックをしているとchromeがずっと通信しています。 そのせいで別のアプリが通信できません。 ブラウザを閉じるという手もあるかと思いますが、chromeの通信だけを一時的に止めれないかと、Windowsのファイアウォールから止めようと試みました。 手順は以下のようにしましたが、上手くいかなかったです。 Windows10 Home 1903 chromeバージョン 78.0.3904.70 Windowsセキュリティ → ファイアウォールとネットワーク保護 → ファイアウォールによるアプリの許可 → Google Chrome プライベートとパブリックのチェックを外してから設定の変更をクリック → OK これでもchromeの通信は止まりませんでした。 もしかして再起動しないと反映されないのでしょうか? 現在進行形の通信を止めたいのに再起動かけるのはチョット違うので、結局元に戻して諦めました。 YouTubeは×マークで読み込みを止めた後も通信していますよね? YouTubeにアクセスした時にこの現象が起きる感じがします。 chromeの通信を一時的に止める方法は他に何かありますか? よろしくお願い致します。

    2019/12/15 09:37
  • ppoe接続の設定はルーターに記憶されていますか?

    ppoe接続の設定はルーターに記憶されていますか? ルーターを変えればppoe接続の以前の情報は削除されますか? 手動で削除する必要がありますか? 

    2019/12/14 21:35
  • autcadLTEテキストウインドウ エラー

    会社でautcad2019を使っています。 プロパティーの表示を使用とするとエラーになり表示がされません。 オブジャクトプロパティー管理で表示をしようとすると 「autcadLTEテキストウインドウ-Drawing1.dwg」と表示され コマンド入力と表示されますが、コマンドを打っても表示されません。 コマンド入力しても表示されません。 どうやったらプロパティーの全てが表示されますでしょうか? 教えてください。

    2019/12/14 11:25
  • autcado プロパティー 表示 エラー

    会社でautcad2019を使っています。 プロパティーの表示を使用とするとエラーになり 表示がされません。 オブジャクトプロパティー管理で表示をしようとすると 「autcadLTEテキストウインドウ-Drawing1.dwg」と表示され コマンド入力と表示されますが、コマンドを打っても表示されません。 コマンド入力しても表示されません。 どうやったらプロパティーの全てが表示されますでしょうか? 教えてください。

    2019/12/13 20:30
  • VBA と JIS Full BASIC

     下のJIS Full Basic スタイルとだいたい同じようなコードを VBA で書いたのですが   Z = Sqr(x^2 + y^2) のところでエラーが出ます。どこがおかしいのでしょうか。 Function gcd(a, b)   Do While b <> 0    r = a Mod b    a = b    b = r   Loop   gcd = a End Function Rem 既約なピタゴラス数を求める Sub Pythagoras()  LAST = 200   LAST = 200   For x = 1 To LAST    For y = x + 1 To LAST      Z = Sqr(x^2 + y^2)      'ここでコンパイルエラーが出る      If Int(Z) = Z Then       If gcd(x, y) = 1 And gcd(x, z) = 1 And gcd(y, z) = 1 Then         Debug.Print x & ", " & y & ", " & z       End If      End If    Next y   Next x End Sub ---------------------------- JIS Full Basic スタイルのコード REM ピタゴラス数 FUNCTION gcd(a,b)   DO WHILE b <> 0    LET r = MOD(a,b)    LET a = b    LET b = r   LOOP   LET gcd = a END FUNCTION LET LAST = 200 FOR x = 1 TO LAST   FOR y = x + 1 TO LAST    LET z = SQR(x^2+y^2)    IF INT(z) = z THEN      IF gcd(x,y) = 1 AND gcd(x,z) = 1 AND gcd(y,z) = 1 THEN       PRINT x,y,z      END IF    END IF   NEXT y NEXT x END

    2019/12/13 14:31
  • SNS共有にnofollow

    SNS共有でブログに共有コードを貼り付けると、 名前・画像など、いろんな箇所がリンクになります。 その全てのリンク達に、nofollowを付けたいです。 rel="nofollow"というのは、nofollowにしたいURLの後に付けるようです。 ですが、やってみると画像が表示されなくなったりします。 SNS共有にnofollowを付けるには、どのようにすればできるでしょうか? また、いくつかのリンクに一度に設定する方法などはあるでしょうか? よろしくお願いいたします。

    2019/12/13 11:04
  • Windows10でPCの検索窓をどうにかしたい。

    こんばんは。Windows10 64ビットhome版 Ver1909最新です。ウイルスバスター使用です。 1903まではエクスプローラーの検索窓で、ファイルやフォルダをドライブ上から探す際、検索ワードをコピペして検索できましたが、1909にした途端以下の方法でないと出来なくなりました。 >>https://answers.microsoft.com/ja-jp/windows/forum/all/%E3%82%A8%E3%82%AF%E3%82%B9%E3%83%97%E3%83%AD/2637b339-8d99-4c92-a293-d2aeede26341 手入力は今でもできますけど、仕方ないのでCtrl+Vでしてます。 で、検索ワードが増えてプルダウンリストが溜まると、Windows7の頃と同じDeleteで消してたのですが、これも出来なくなり、 >>https://tom-51.net/pc/explore-search こちらのリボンから削除する方法は可能だったので今はこれで対処しています。 が、検索窓がフリーズしてうんともすんとも反応しなくなる事も多く、そうすると一つ目のURLにある通り、タスクマネージャーからエクスプローラーを再起動しないとならず、その為開いていたフォルダやファイルも一度閉めてからなので、手間が掛かって仕方無い。全部閉じて再起動→一から作業に必要なフォルダとファイルを開き直す→作業中に検索したいのに検索窓フリーズ→全部閉じて~エンドレス。 一度フリーズすると、再起動しないと利用できないので不便です。今月のupdateで改善を期待したのですが、対応されていません。 実は何か方法が…とかありませんか?Windows10を利用し始めたばかりで知らない方法があるのかもしれなくて、質問します。 解る人、教えて下さい。お願いします。

    2019/12/12 23:50
  • windows7OEM版=10にアップGは無理?

    いろんな操作を試した見ましたが、 アップグレードが出来ず、 基本的に、OEM版ではアップグレードは無理で、 DSP版なら出来ると解釈してよろしいのでしょうか? お願いします。

    2019/12/12 23:20

ピックアップ