Josh Life Journey

海外旅ブログ 17ヶ月のラテンアメリカ(旅行中)・その他世界一周に必要な情報まとめ・情シスでの経験・解決法

2017年12月

TP-1 2017/12/7 執筆

ブログを始めて早3ヶ月ようやく本当に書きたい旅の記事を始めることにしました。
世界一周までの道のりを記録していく。

関西空港でプライオリティパスが使用できるラウンジ KAL Lounge

関空にはセキュリティゲートの外側にプライオリティパスの利用できるラウンジがある。
・KAL Lounge (Korean Air 大韓航空)

そのほかにカード系のラウンジ
・比叡 カードメンバーズラウンジ

実際にKALラウンジに行ってみた。2017年11月

11月東南アジアに出張の機会があったので、
初のプライオリティパスを使用できるとルンルン気分で関空に向かった。

チェックインを先に済ませ荷物を預けバックパック1つの状態
ちなみにフライトは夜中出発で、現在の時間は午後10時前、

場所は3Fフロアの端っこ

45
10

ユニクロの横にある、見るからに関係者以外立ち入り禁止っぽい雰囲気の通路を通り抜け

28

右に曲がるとラウンジの説明があり KALラウンジ!!!

32

そのまままっすぐ行くと

01

あっあれっ?
閉まってる・・・

よくスーパーで見る(最近見かけないが)これほしいと床に寝そべって駄々こねている子供の状態になり、しばらく放心状態・・・

営業時間外だったーーーーー
自分が無知だったと再認識し、フライトまで2時間ある。
どうしたもんか・・・



MK-1 2017/10/27 執筆

差出人の住所・氏名を手書きは面倒・・・

メルカリで売れるものが増えれば増えるほど面倒なのが宛名と差出人の記載

今回はwordで簡単に宛名ラベルを作成・印刷する方法を紹介します。

Wordでラベル作成

※Word2013での使用方法です。

Wordの差込印刷という機能を使用します。
ラベルのサイズを設定してから印刷します。
一度設定したファイルを保存しておけば毎回作成する必要はありません。

1. 差込印刷設定

①Wordを起動し、新規で白紙文書を作成します。

②「差し込み文書」タブをクリック
③「ラベル」をクリック
MK-1-1

④「オプション」をクリック
MK-1-2

⑤「新しいラベル」クリック
MK-1-3

2. ラベルの設定

今回例に挙げるラベルはA4の3x6=18枚ラベル
MK-1-5

MK-1-6


以下の①~⑩をラベルに合わせて設定する。
MK-1-4
①ラベル設定:名何でもいいので入力
②用紙サイズ:「A4」
③列数:「3」
④行数:「6」

⑤上余白:「21」
⑥横余白:「0」

⑦ラベルの高さ:「70」
⑧ラベルの幅:「42.3」


⑨垂直方向の間隔:「70」
⑩水平方向の間隔:「42.3」


設定が完了したら「OK」をクリック
前の画面に戻るのでその画面も「OK」をクリック

3. 印刷してみる

宛名ラベル作成の画面で「印刷」



こちらのサイトにはExcelを駆使した宛先の印刷例が載っています。http://www.mimosa.gr.jp/oa_label/word_tackseal.html


VBA-1 2017/12/4 執筆

ADOを使用してDBからExcelにデータを引くOracleのADOを使いこなす方法

ADOを使用したデータ取得方法(ざっくり)
    '定義
    Dim adoConn As ADODB.Connection Dim adoRS As ADODB.Recordset

    'Oracle接続
    Set adoConn = New ADODB.Connection
    adoConn.ConnectionString = "DSN=
    ****;UID=****;PWD=****;" adoConn.Open

    Dim mySQL As String mySQL = "
    SELECT ******** "

    'SQL発行
    Set adoRS = New ADODB.Recordset Set adoRS = adoConn.Execute(mySQL)

    'A1にべたっと貼り付ける
    sheet1.Range("A1").CopyFromRecordset adoRS

A1から列と行にデータがあるだけ貼り付ける (この方法では列名は貼り付けられない)
※赤字を適当な分に変更して使用下さい。

実行すると定義エラーになる

ここでよくはまるのが
ソースをコピーし、データ取得マクロ実行しようとすると下記のエラーが表示される。

VBA-1-1
コンパイルエラー:ユーザ定義型は定義されていません。

Dim adoCon As ADODB.Connection
この定義名でエラーになる

エラーの原因は単純で参照が抜けている為。
解決方法は以下。

VBA-1-2
ツール → 参照設定

VBA-1-3
「Microsoft ActiveX Data Objects 2.8 Library」にチェックをいれ参照を追加するだけ。
※2.8の部分はバージョンによって変わる。

GM-42 2017/12/1 執筆

トレーダー (物資交換)とアイテムを交換する方法

トレーター "Traders" と呼ばれるアイテムを交換してくれる生存者が存在する 

出現タイミングは…
・Day 2以降?
・第2の島以降?
・出現場所は基本施設周辺か道路に出現する。

GM-42-1
トレーダーが近くにいる場合このようなアイコンが表示される

GM-42-2
大体毎回3人ぐらいかたまって出現する。
近づいて、噴出しマークを押すと

GM-42-3
交換画面が表示される。
Hello. do you want to excange some items? This is what
こんにちは。アイテムを交換したいですか? これと交換できます。

OfferのアイテムをPriceのアイテムに交換してくれます。
赤の左右矢印を押すとPriceのアイテムを変更できます。
アイテムを持っていない場合 "No item"と表示されます。
やめる場合は"Back"を押します。

GM-42-4
交換できるアイテムを持っている場合"Exchange"と表示され、
押すと自動的にアイテムが交換されます。

トレーダーに攻撃は厳禁

GM-42-5
銃を装備していると、自動で照準が合うので気をつける必要がある。

攻撃しない限り攻撃はされないが、一発でも撃つと反撃してくる。
対外即死するほど銃弾を食らう羽目になる。

GM-42-6GM-42-7GM-42-8
大抵ライフル系と防弾チョッキとかなり重装備をしており倒すのは困難。
弾は無限と思われる。
誤射で何度死んだことか・・・

じゃあ、どうやって倒すか

撃つと打ちかえされるが、撃たずに倒すには・・・

感染者を利用すればいいじゃん

GM-42-9
感染者を引きつけトレーダーの方に走っていくと勝手にかなり激しく銃で戦ってくれる。
重装備なので数匹では敵わないので数をつれていく必要がある。

GM-42-10

ここで注意点!!!
トレーダーの発砲した弾は感染者だけでなくプレイヤーにもヒットするので、
間に挟まれると即死できるのでかなり注意。

運よく倒せた場合はかなりの装備と物資を手に入れられる。
当然プレイヤーからは攻撃していないので生き残ったトレーダーからも攻撃されないので安心してアイテムの回収ができる。

流れ弾が被弾するリスクがかなり大きいが試してみる価値アリ?

↑このページのトップヘ