KTパソコンスクール さん プロフィール

  •  
KTパソコンスクールさん: KTパソコンスクール
ハンドル名KTパソコンスクール さん
ブログタイトルKTパソコンスクール
ブログURLhttp://ktpcschool.hamazo.tv/
サイト紹介文静岡県掛川市にあるパソコン教室です。
自由文掛川市中宿57-2 掛川陶芸の建物内
電話0537-21-1731
http://ktpcschool.web.fc2.com/
ブラインドタッチ、ホームページ作成、ブログの作成から、ワード、エクセル、エクセルVBA、UWSC、統計解析、プログラミングまで自由に楽しく学べるパソコンスクールです。面倒な単純作業を自動化、効率化する方法を教えます。
参加カテゴリー
更新頻度(1年)情報提供17回 / 365日(平均0.3回/週) - 参加 2014/06/09 20:22

KTパソコンスクール さんのブログ記事

  • 強化学習(OpenAI Gym)
  • 最近、ディープラーニングなどの機械学習を学んでいます。ディープラーニング用に新たにPC(OSはUbuntu、GPU有り)を購入しました。数年前に囲碁のチャンピオンに勝ったAlphaGo(アルファ碁)で有名な強化学習のプログラムを試してみました。初心者には定番のようなOpenAI GymのAtariのゲームの中からBreakout(ブロック崩し)とSpaceInvaders(スペースインベーダー)の学習を試してみました。最初は本に書いてあるプログラムをそ [続きを読む]
  • ExcelのXLSファイルをXLSX・XLSMに変換するツールを作成
  • 先日パソコン教室に来た方がExcelのファイルサイズが大きくて重いのでなんとかしたいとのことだったのですが、拡張子.xlsのファイルを拡張子.xlsxのファイルに変換してみたところ、ファイルサイズが50パーセント以下になって軽くなり、幸いにも喜んでいただくことができました。同様の件でお困りの方がいるかと思い、指定したフォルダ内の全てのxlsファイルをxlsxまたはxlsmのファイルに変換するツールを作成しました。ツールは以 [続きを読む]
  • Excel VBAで外部アプリを起動し終了まで待つ方法
  • Excel VBAで外部アプリを起動するにはExcel VBAからUWSCを起動する方法の記事でも紹介しましたが、Shell関数を使う方法があります。ただ、この方法だと外部アプリが終了するまで待つことができないので不都合な時があります。例えば、Excelのセルからデータを渡してUWSCを起動し、UWSCでなんらかの処理をさせて、それをExcel側に反映させたいとします。Excelのシートは下の状態だとします。?下のtest1プロシージャのようにShell関 [続きを読む]
  • Excel VBAで指定時刻に特定のマクロを自動実行する方法
  • Excel VBAで指定時刻に特定のマクロを実行するにはApplication.OnTime メソッドを使います。例えば、標準モジュールに次の2つのプロシージャを作成し、OnTimeSampleプロシージャを実行するとSub Test() MsgBox "KTパソコンスクールさん、こんにちは!"End SubSub OnTimeSample() Application.OnTime EarliestTime:=TimeValue("09:00:00"), _ Procedure:="Test"End Sub9時ちょうどにTestプロシージャが実行されます。Appli [続きを読む]
  • UWSCでフォルダ選択ダイアログからフォルダを選択
  • フォルダ選択ダイアログからフォルダを選択し、そのフォルダ内の拡張子.txtの全てのファイルのファイル名を表示するプログラムshell = CREATEOLEOBJ("Shell.Application")root = "C:Users{ユーザー名}Documents"folder = shell.BrowseForFolder(0, "フォルダを選択して下さい", 0, root)If folder = nothing Then exitexitendIfdir = folder.Items.Item.Path//選択したフォルダ内の全てのテキストファイルのファイル名を表示fil [続きを読む]
  • W杯ポーランド戦残り10分の戦い方
  • サッカーワールドカップ2018での日本代表のポーランド戦で、残り10分で西野監督の指示した戦い方が話題になっているので、2017年J1、J2のデータを元に、後半30分時点で1点差で負けていた試合(ホームチーム)の試合終了後の得点と失点の差を調べてみました。データはフットボールラボのサイトから取得しました。結果は下のようになりました。後半30分時点で1点差で負けていた試合は157試合あり、そのまま1点差負けで終わった試 [続きを読む]
  • 「ExcelVBA 実戦のための技術」
  • 最近「ExcelVBA 実戦のための技術」という本を購入して、勉強しています。Excel VBAの本だけでも10冊以上は読んだので、それなりにわかった気でいましたが、知らなかったことが多くあり、勉強になります。Excel VBAを実務で使う方、より深く知りたい方にお勧めの本です。ダウンロードしたサンプルプログラムを実行したところ、エラーが出る箇所がありました。P.109のコード4-2-5Private Sub RunSample() Debug.Print Applicat [続きを読む]
  • UWSCでファイル、フォルダの存在確認する方法
  • UWSCでファイル、フォルダの存在を確認するプログラムです。デスクトップに「test.txt」というファイルがあるかどうか判定file = "C:Users{ユーザー名}Desktoptest.txt"FS = CREATEOLEOBJ("Scripting.FileSystemObject")ret = FS.FileExists(file)print ret //あればTrue、なければFalseと表示されるデスクトップに「test」というフォルダがあるかどうか判定folder = "C:Users{ユーザー名}Desktoptest"FS = CREATEOLEOBJ("Scriptin [続きを読む]
  • サッカーの得点、失点において重要なデータは何か?
  • サッカーの得点、失点において重要なデータは何か?をテーマに分析をしてみました。前回同様、機械学習のランダムフォレストの手法による分析です。J1、J2の2012年から2017年までのデータを元にプログラムを作成、データはフットボールラボのサイトから取得、数値は相対的な特徴量の重要度で、合計して1になるようになっています。結果は下の通りです。得点において重要なデータ 1) shot_suc(シュート成功率) [続きを読む]
  • サッカーの勝敗において重要なデータは何か?
  • サッカーの勝敗において重要なデータは何か?をテーマに分析をしてみました。機械学習のランダムフォレストという手法で特徴量の重要度を測定できるとのことなので、Pythonでプログラムを作成して調べてみました。J1、J2の2012年から2017年までのデータを元にプログラムを作成しました。データはフットボールラボのサイトから取得しました。数値は相対的な特徴量の重要度で、合計して1になるようになっています。結果は下の通りで [続きを読む]
  • UWSCを管理者権限で実行する方法
  • UWSCで操作したいアプリが管理者権限で実行されている場合には、UWSCも管理者権限が必要とされます。?UWSCのよくある質問(アプリの操作ができない、記録ができない(Vista/7/8.x/10)  #N29)その場合、上のページにあるようにUWSCを起動する時に、右 して、"管理者として実行"から起動するとUWSCを管理者として実行できるようになります。ただ、ユーザーアカウント制御(UAC)のウィンドウが表示されてしまうので、指 [続きを読む]
  • 確定申告に役立つファイルを無料で配布します(平成29年度版)
  • 平成29年度の確定申告書の作成に役立つファイルをExcelで作りました。所得税の計算、給与所得の計算、雑所得の計算、生命保険料控除の計算に役立ちます。欲しい方は下のリンクからダウンロードしてください。平成29年度確定申告書作成用エクセルファイル使用方法等① ダウンロードしたIncometax_H29.zipを解凍、どこかのフォルダに保存する。② Excel2007以降のバージョンをご使用の方は「所得税計算H29.xlsm」のほうを、Excel [続きを読む]
  • Excel VBAでアナログ時計を作成
  • Excel VBAを使って、アナログ時計を作りました。YouTubeにアップしたので、よかったら見てください
    。作成したプログラムのコードです。Option ExplicitDeclare Function GetAsyncKeyState Lib "User32.dll" (By
    Val vKey As Long) As LongDeclare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'(x0, y0)周りを回転Sub
    Rotate(x0 As Integer, y0 As Integer, _ByRef x As Integer, ByRef y As Integer, r As Integer, an [続きを読む]
  • LED掲示板を自作(Raspberry Pi)
  • LED掲示板を自作しました。YouTubeにアップしたので、よかったら見てください。自作といってもLEDパネルは出来合いのもので、LEDの制御もライブラリ(hzeller/rpi-rgb-led-matrix)を利用しています。LEDを一つずつつなげて、制御のプログラムも自分で作るとなると、とてつもなく大変に思われたのですが、おかげで思ったよりは苦労せずにできました。作成には下のサイトを参考にしました。Raspberry Pi で LED時計を作ってみたほと [続きを読む]
  • Microsoft Access 講座を始めました
  • 新たにMicrosoft Access 講座を始めました。Excelとの比較でAccessを使用するメリットを列挙してみます。 ①複数の表を簡単に結合して、抽出できる ②データの二重登録を防げる ③取り出したデータから、簡単に一覧表や請求書やラベルを作成し、印刷できる ④大量のデータを扱うことができるまた、ExcelからAccessにデータを取り込んだり、逆にAccessからExcelにデータを取り込んだり、と連携することもできます。データの効率 [続きを読む]
  • 無料パソコンなんでも体験
  • 無料パソコンなんでも体験を実施します。 日時: 5月13日(土)9:00〜17:00の間の1時間 場所: KTパソコンスクール(静岡県掛川市中宿57-2) 内容: Excelでわからないことを聞きたい、プログラミングをやってみたい、業務効率化・自動化したい、そのほか可能な限り何でもOKです。 電話: 0537-21-1731 メール: ktpcschool@gmail.com [続きを読む]
  • 無料パソコンなんでも相談
  • 無料パソコンなんでも相談を実施します。 日時: 5月6日(土)9:00〜17:00の間の1時間 場所: KTパソコンスクール(静岡県掛川市中宿57-2) 内容: インターネットをやってみたい、Excelでわからないことを聞きたい、プログラミングをやってみたい、業務効率化・自動化したい、そのほか可能な限り何でもOKです。 電話: 0537-21-1731 メール: ktpcschool@gmail.com [続きを読む]