Mandarin Orange Tiger

前のブログ…

2018-10-09T11:28:00.001+09:00

前やっていたブログから引っ越しをこちらにしようと思ったらうまくいかなくてあきらめモードです…

そちらのブログで書いていた事を続けても書くとは思うのですが、あんまり書かないかもだし（＾＾；

毎日続けていて好評で復活して欲しいと言われたLINEだけは早くにでも復活しようと思っています。

前のアカウントは削除してしまったので新規に作りました→

よかったら登録をお願いします。

1日、1回だけの配信予定です。

まだ全然いろいろできてないのですが（このブログだって…）

LINEもどーぞよろしくお願いします。

使ってる文房G

2018-10-04T11:04:00.000+09:00

今、一番使ってる文房具は
↓のパイロット 4色ボールペンフリクションボール4 LKFB-3SEF-B 0.5mm ブラック　です

仕事中用のペンとして使っています。
消えて困る時は他のボールペンを使う事もありますが、メモとか仕事用のノートとかに画分なのであとで消したり便利に使わせてもらっています。

太めで重めのボールペンで
少し文字がうまくなった気がしますｗ

フリクションは黒がはっきりしていない気がしますし
インクの無くなりが早い気がしますし、
インクが少なくなってきた時の線の太さが好みです。。

昨年、手帳用に買ったのですが続かず（汗

手帳は消えないペンで今回は書いていきたいと思っています。

今回はゼブラジェルボールペンサラサクリップ 0.5 ビンテージ5色 JJ15-5C-VIでがんばります！

使った感じは落ち着いたとっても良い色ですよ～

ブルーブラックで基本書いて、当日の修正はブラウングレー　で
良い事があったらレッドブラックで書いています。

すっごく良い事があったら通常の赤ペンを使う予定ですぅ

書き心地もとても良く気に入ってますが、、0.5なのがなってちょっぴりだけ残念です。
0.3がほしいな～

EXCELからテキストに出力する！

2018-10-03T11:41:00.000+09:00

Sub TXT_OUTPUT()

fnsave = "d:\work\出力結果.txt" 'アウトプットの場所
numff = FreeFile
Open fnsave For Output As #numff
temp = ""
For i = 1 To 10
'各セルをカンマ、改行文字を間に挟み、一つの文字列として連結
temp = temp & Cells(i, 1) & "," & Cells(i, 1) & char(13) & char(10)
Next i
'文字列をファイルに出力する。
Print #numff, temp
Close #numff

End Sub

Sub Seve_As() '名前をつけて保存

2018-10-02T16:16:00.000+09:00

Sub Seve_As() '名前をつけて保存「ファイル名月日.xlsx」

Dim Motoneta As String

Motoneta = ActiveWorkbook.Name 'ファイル名のみ

Application.DisplayAlerts = False '確認メッセージを出さない

Workbooks(Motoneta).SaveAs Filename:=("ファイル名" & Format(Date, "mmdd") & ".xlsx"), FileFormat:=xlOpenXMLWorkbook'ファイル名mmdd.xlsxで保存

End Sub

FileForma定数	拡張子	説明
xlOpenXMLWorkbook	*.xlsx	Excelブック
xlOpenXMLWorkbookMacroEnabled	*.xlsm
xlExcel12	*.xlsb	Excelバイナリブック
lExcel8	*.xls	Excel97-2003ブック
		XMLデータ
xlWebArchive	*.mht	単一ファイルWebページ
xlHtml	*.htm	Webページ
xlOpenXMLTemplate	*.xltx	Excelテンプレート
xlOpenXMLTemplateMacroEnabled	*.xltm	Excelマクロ有効テンプレート
xlTemplate8	*.xlt	Excel97-2003テンプレート
xlText	*.txt	テキスト（タブ区切り）
xlUnicodeText	*.txt	Unicodeテキスト
xlXMLSpreadsheet	*.xml	XMLスプレットシート2003
xlCSV	*.csv	CSV（カンマ区切り）
xlTextPrinter	*.prn	テキスト（スペース区切り）
xlDIF	*.dif
xlSYLK	*.slk
xlOpenDocumentSpreadsheet	*.ods	OpenDocumentスプレッドシート

Sub 空白のセル行を削除()

2018-10-01T18:32:00.000+09:00

Sub 空白のセル行を削除()

n = Cells(Rows.Count, "A").End(xlUp).Row
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Rows("1:" & n).Select
Selection.Copy
Sheets.Add
Rows("1:1").Select
ActiveSheet.Paste
Range("A1").Select

End Sub
------------------------------------
削除だと時間がかかるので、新規シートを作成してネタがあるものをコピペする。

ファイル名に使えない文字を変換！

2018-09-28T13:45:00.000+09:00

Sub File_Name() 'ファイル名に使えない文字を変換-1

Dim Rng As Range

Set Rng = Range("1:1").Find("タイトル")
Rng.EntireColumn.Select

Selection.Replace What:="~?", Replacement:="_"
Selection.Replace What:="/", Replacement:="／"
Selection.Replace What:="[", Replacement:="［"
Selection.Replace What:="]", Replacement:="］"
Selection.Replace What:=">", Replacement:="＞"
Selection.Replace What:="<", Replacement:="＜"
Selection.Replace What:="~*", Replacement:="＊"
Selection.Replace What:=":", Replacement:="："
Selection.Replace What:=";", Replacement:="；"
Selection.Replace What:="\", Replacement:="_"
Selection.Replace What:="""", Replacement:="_"
Selection.Replace What:=vbTab, Replacement:="_"

End Sub

半角を全角にしたりとかいろいろ、、

まずは形から（笑

2018-09-27T14:26:00.001+09:00

新しくはじめるにあたり、

最近ずっと気に入ってみていた和気文具さんとかで見ていてほしかったビンテージカラーのペンを購入しました♪

金色のペンも欲しいと考えてますぅ

あとあと、こっちは勢いで買ってしまったんですが、蛍光ペン色が落ち着いてて良いなと…
衝動買いってやつですね…

今日、自宅に届いていると思うので、下記心地はまた後日にでも～

テーマ変更

2018-09-26T15:38:00.002+09:00

前に編み物（かぎ編み）をしていたブログをそのまま変更していますぅ。

なので、前に書いたもの設置したものが残っていますが…

徐々に替えていく予定です。。

インスタのとかどこだっけかと…、、少しずついろいろと積み重ねていきます。

これからもよろしくお願いします！