前やっていたブログから引っ越しをこちらにしようと思ったらうまくいかなくてあきらめモードです…
そちらのブログで書いていた事を続けても書くとは思うのですが、あんまり書かないかもだし(^^;
毎日続けていて好評で復活して欲しいと言われたLINEだけは早くにでも復活しようと思っています。
前のアカウントは削除してしまったので新規に作りました→
よかったら登録をお願いします。
1日、1回だけの配信予定です。
まだ全然いろいろできてないのですが(このブログだって…)
LINEもどーぞよろしくお願いします。
Mandarin Orange Tiger
いろいろすぎて他にしたほうがいいかもとかも思ってるけどとりあえずいっぽんでがんばってみますぅ
使ってる文房G
今、一番使ってる文房具は
↓のパイロット 4色ボールペン フリクションボール4 LKFB-3SEF-B 0.5mm ブラック です
仕事中用のペンとして使っています。
消えて困る時は他のボールペンを使う事もありますが、メモとか仕事用のノートとかに画分なのであとで消したり便利に使わせてもらっています。
太めで重めのボールペンで
少し文字がうまくなった気がしますw
フリクションは黒がはっきりしていない気がしますし
インクの無くなりが早い気がしますし、
インクが少なくなってきた時の線の太さが好みです。。
昨年、手帳用に買ったのですが続かず(汗
手帳は消えないペンで今回は書いていきたいと思っています。
今回はゼブラ ジェルボールペン サラサクリップ 0.5 ビンテージ5色 JJ15-5C-VIでがんばります!
使った感じは落ち着いたとっても良い色ですよ~
ブルーブラックで基本書いて、当日の修正はブラウングレー で
良い事があったらレッドブラックで書いています。
すっごく良い事があったら通常の赤ペンを使う予定ですぅ
書き心地もとても良く気に入ってますが、、0.5なのがなってちょっぴりだけ残念です。
0.3がほしいな~
↓のパイロット 4色ボールペン フリクションボール4 LKFB-3SEF-B 0.5mm ブラック です
仕事中用のペンとして使っています。
消えて困る時は他のボールペンを使う事もありますが、メモとか仕事用のノートとかに画分なのであとで消したり便利に使わせてもらっています。
太めで重めのボールペンで
少し文字がうまくなった気がしますw
フリクションは黒がはっきりしていない気がしますし
インクの無くなりが早い気がしますし、
インクが少なくなってきた時の線の太さが好みです。。
昨年、手帳用に買ったのですが続かず(汗
手帳は消えないペンで今回は書いていきたいと思っています。
今回はゼブラ ジェルボールペン サラサクリップ 0.5 ビンテージ5色 JJ15-5C-VIでがんばります!
使った感じは落ち着いたとっても良い色ですよ~
ブルーブラックで基本書いて、当日の修正はブラウングレー で
良い事があったらレッドブラックで書いています。
すっごく良い事があったら通常の赤ペンを使う予定ですぅ
書き心地もとても良く気に入ってますが、、0.5なのがなってちょっぴりだけ残念です。
0.3がほしいな~
EXCELからテキストに出力する!
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
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() '名前をつけて保存
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
Sub 空白のセル行を削除()
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
------------------------------------
削除だと時間がかかるので、新規シートを作成してネタがあるものをコピペする。
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
------------------------------------
削除だと時間がかかるので、新規シートを作成してネタがあるものをコピペする。
登録:
投稿 (Atom)