5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

【日本郵便】クリックポストPart11【164円】 [転載禁止]©2ch.net

1 :名無しさん(新規):2015/03/06(金) 02:45:26.31 ID:K+sxW46B0
【公式サイト】
http://www.post.japanpost.jp/service/clickpost/
クリックポストは、日本郵便が2014年6月16日より開始した、ポスパケットを利用したサービスであり、ウェブサイトにおいて、
あらかじめ荷送人・荷受人の住所等を入力し、決済を行って発行されたラベルを印刷・貼付して差し出すことで、
「専用サイト事前入力割引」として360円の運賃が196円割り引かれ、164円となる。
利用に際してはYahoo! JAPAN IDが必要であり、運賃支払いにはYahoo!ウォレットを用いる。
http://yubin.2-d.jp/y3/90-1.gif
厚さが3cm以内、あて名変換サービス、数量割引及び着払いの取り扱いをしないほかは、一般のポスパケットと同様の利用・差出・配達となる。

サービス概要
http://yubin.2-d.jp/y3/90-1.gif
○よくあるご質問○
http://click-post.force.com/CYM_Faq
プリンターが無かったり、宛名入力が面倒な方はポスパケットをご利用下さい。
http://www.post.japanpost.jp/service/pospa/

■関連スレ
郵便★ゆうメール(冊子小包)11
http://anago.2ch.net/test/read.cgi/yahoo/1356994876/
【4/1〜開始】宅急便コンパクトPart1【ヤマト】
http://anago.2ch.net/test/read.cgi/yahoo/1425380179/

■前スレ
【日本郵便】クリックポストPart9【164円】 実質Part10
http://anago.2ch.net/test/read.cgi/yahoo/1422187843/

435 :名無しさん(新規):2015/03/13(金) 03:53:50.19 ID:qtCakwnI0
全角←→半角変換のツールを不細工ながら作ってみました。
クリップボードのデータを全半角変換してまたクリップボードに戻します。
できればPGがわかる人に何回かテストして貰いたいです、お願い・・・
設定がちょっとめんどうですが、いちいち手動で修正するよりはましかと思って公開します。

vbsとExcelを使います。
設定後の運用は下記の通り
1.取引ナビから住所等をクリップボードにコピー
2.設定したショートカットから実行
3.クリポ入力画面に貼り付け

1.Excelの設定
 Excelのファイルを新規作成します。
 念のためワークシートを1枚残してあとは削除します。
 B1に"=JIS(A1)"、C1に"=ASC(A1)"を書いて保存終了します。
2.vbsの設定
 テキストエディタに"'-----VBS 始め -----" 〜 "'-----VBS 終わり -----"をコピペ・保存します。
 ファイル名は"○○.vbs"とします。
 ユーザー設定部分、「myExcelPath=""」の""内に1.のExcelファイルのフルパスを書いて上書き保存します。
 これをそのまま実行すると半角→全角の変換がされます。
3.ショートカットの設定
 2.のvbsへのショートカットを2つ作成します。
 片方のリンク先の末尾に" 半"を追加します(〜Henkan.vbs 半)。これが全角→半角になります。
 これらのショートカットをタスクバーにコピーすれば使いやすいのではないかと・・・


1.エラー処理は一切してません。画像データがコピーされていても対処しません。
2.処理後のデータが改行されるんだけど、解決できてません。
3.処理後Beepが鳴ります。全角の場合1回、半角の場合は2回。
4.vbs、bat、Excel、どれか1本でやりたかったけど私には無理でした。
5.拙いところがあったら指摘して下さい。でもやさしくしてね(´・ω・`)

436 :名無しさん(新規):2015/03/13(金) 03:55:11.74 ID:qtCakwnI0
'-----VBS 始め -----
Option Explicit

Dim myExcelPath
'-----ユーザー設定 始め -----
'エクセルファイルのフルパスを設定して下さい。
'例:"D:\Auc\Conv.xls"
myExcelPath=""
'-----ユーザー設定 終わり -----

'変換種別を設定します。
Const CnvWide=1
Const CnvNarrow=2

Dim Cnv,i
Dim objExcel,objBook 'Excelアプリ、ブック

'引数から変換種別を設定します。
Cnv=CnvWide
If WScript.Arguments.Count<>0 Then
Select Case WScript.Arguments(0)
case "半": Cnv=CnvNarrow
End Select
End If

437 :名無しさん(新規):2015/03/13(金) 03:55:44.38 ID:qtCakwnI0
'Excelを起動します。
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
'objExcel.Visible = true
objExcel.Workbooks.Open myExcelPath
Set objBook = objExcel.ActiveWorkbook

'Excelに値を渡して変換処理を行い、処理後の値をクリップボードにコピーします。
With objBook.Sheets(1)
.Paste .Range("A1")
.cells(1,Cnv+1).copy
End With

objBook.Close(False)
objExcel.Quit
Set objBook=Nothing
Set objExcel=Nothing

'Beep音を鳴らします。
For i=1 To Cnv
CreateObject("WScript.Shell").Run "cmd /c " & "@echo " , 0
Next
WScript.Quit

'-----VBS 終わり -----

438 :名無しさん(新規):2015/03/13(金) 03:59:40.12 ID:qtCakwnI0
ごめん、コピペしたらbeep鳴らないです…

439 :名無しさん(新規):2015/03/13(金) 04:05:26.41 ID:h2DF+kP70
excel vbaの一括登録マクロ出品したった

440 :名無しさん(新規):2015/03/13(金) 04:05:38.11 ID:qtCakwnI0
@echo

441 :名無しさん(新規):2015/03/13(金) 04:07:48.06 ID:qtCakwnI0
beepのコピペ無理

442 :名無しさん(新規):2015/03/13(金) 05:53:41.29 ID:qtCakwnI0
CreateObject("WScript.Shell").Run "cmd /c " & "@echo " , 0
 ↓
CreateObject("WScript.Shell").Run "cmd /c " & "echo " & Chr(7) , 0

443 :名無しさん(新規):2015/03/13(金) 08:07:23.45 ID:1dyw/HxU0
ゆうゆう窓口ってすぐに引受してくれないのかな?
夜の11時に持って行った分
いつまで経っても番号見つからないって出る
これはもうだめなのかね?

444 :名無しさん(新規):2015/03/13(金) 09:08:17.03 ID:AH9aM9rz0
マクロの人 「シフト+変換」ではだめなのか
macだとシフト変換が出来ないって書き込みたまに見るけどvbsもだめなのでは

445 :名無しさん(新規):2015/03/13(金) 09:13:18.24 ID:AH9aM9rz0
http://www.vector.co.jp/magazine/softnews/110412/n1104121_author.html
調べたらこんなのも有ったし。

でもまあ自分で試行錯誤して勉強するのはいいことだと思うし否定はしないが。

213 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)