国内でゲット出来るポケモンは残すところピィ１体のみとなりました。ピィは卵からの孵化だけでゲットが生まれる卵は２Ｋｍです。が、ポケストを回してゲットする卵は５Ｋｍばかり・・・。
そして、年末年始のイベント以降にゲットした卵でベビーポケモンは１体も生まれてません！１日１個以降のペースで卵を孵化させているのに・・・この仕様ヒドイよね？！
【ポケモンＧＯ】ポケモン１５０種類ゲットだぜ！
ムチュールをゲットし、トゲチックをゲットしたので、ゲットしたポケモンの種類は１５０種類となりました。
国内でゲット出来るポケモンは残すところピィ１体のみとなりました。ピィは卵からの孵化だけでゲットが生まれる卵は２Ｋｍです。が、ポケストを回してゲットする卵は５Ｋｍばかり・・・。
そして、年末年始のイベント以降にゲットした卵でベビーポケモンは１体も生まれてません！１日１個以降のペースで卵を孵化させているのに・・・この仕様ヒドイよね？！
国内でゲット出来るポケモンは残すところピィ１体のみとなりました。ピィは卵からの孵化だけでゲットが生まれる卵は２Ｋｍです。が、ポケストを回してゲットする卵は５Ｋｍばかり・・・。
そして、年末年始のイベント以降にゲットした卵でベビーポケモンは１体も生まれてません！１日１個以降のペースで卵を孵化させているのに・・・この仕様ヒドイよね？！
【Excelマクロ(VBa)】フォルダ名・ファイル名の取得(ダイアログ)
フォームをを作成して・・
下記フォームを作成し「フォルダ」の『選択』ボタンを押すとダイアログが表示され、選択したフォルダをテキストボックス「txtDirName」に表示、「ファイル」の『選択』ボタンを押すとダイアログが表示され、選択したファイルをテキストボックス「txtFileName」に表示する処理を作成します。（フォームの作成方法はリンク先をご確認下さい）
フォルダの取得方法
フォルダの『選択』ボタンをダブルクリックして下記コードを記述します。
'フォルダ選択のダイアログを表示する
With Application.FileDialog(msoFileDialogFolderPicker)
'OKを押した場合
If .Show = True Then
'選択したフォルダをテキストボックスに表示する
txtDirName.Text = .SelectedItems(1) & "\"
End If
End With
With Application.FileDialog(msoFileDialogFolderPicker)
'OKを押した場合
If .Show = True Then
'選択したフォルダをテキストボックスに表示する
txtDirName.Text = .SelectedItems(1) & "\"
End If
End With
これで、フォルダの『選択』ボタンをクリックすると下記ダイアログが表示されます。フォルダを選択して「OK」を押すとフォルダのテキストボックス「txtDirName」にフォルダ名を表示出来ます。
ファイルの取得方法
ファイルの『選択』ボタンをダブルクリックして下記コードを記述します。
'ファイル選択のダイアログを表示する
With Application.FileDialog(msoFileDialogFolderPicker)
'開くを押した場合
If .Show = True Then
'選択したファイルをテキストボックスに表示する
txtFileName.Text = .SelectedItems(1)
End If
End With
With Application.FileDialog(msoFileDialogFolderPicker)
'開くを押した場合
If .Show = True Then
'選択したファイルをテキストボックスに表示する
txtFileName.Text = .SelectedItems(1)
End If
End With
これで、ファイルの『選択』ボタンをクリックすると下記ダイアログが表示されます。ファイルを選択して「開く」を押すとファイルのテキストボックス「txtFileName」にファイル名をフルパス表示出来ます。
カテゴリー: VBa(Excelマクロ), システム開発
コメントする
【Excelマクロ(VBa)】フォームの起動
フォームを起動する
以前、フォームを作成しましたが、その起動方法です。
Excel上にボタンを作成します。お好みでプロパティの変更をします。下記例はオブジェクト名とCaptionを変更しました。
作成したボタンをダブルクリックするとコードを記入する画面が起動するので、その中に下記コードを記述します。(フォーム名.show)
frmLogin.Show
これでフォームが簡単に起動できます。
カテゴリー: VBa(Excelマクロ), システム開発
コメントする
【ポケモンＧＯ】ムチュールが生まれましたよ！
ブビィが生まれたので、更に頑張って卵を孵化させるのですが・・・こんな感じです。
普段、なかなかゲットできないベロリンガ・エビワラー・２度目のブビィが孵化してくれたので大喜び・・なハズですが、年末年始の卵孵化イベントでは、ひたすらゲットしていない新ポケモンを追い求めてました。
そして遂に！ムチュールげっとしました！！
（こっそりラプラスも孵化してました。これも相当嬉しい快挙でした!(^^)!）
普段、なかなかゲットできないベロリンガ・エビワラー・２度目のブビィが孵化してくれたので大喜び・・なハズですが、年末年始の卵孵化イベントでは、ひたすらゲットしていない新ポケモンを追い求めてました。
そして遂に！ムチュールげっとしました！！
（こっそりラプラスも孵化してました。これも相当嬉しい快挙でした!(^^)!）
