来週は~忘れない~

ばんは、昨日使った箸を洗い忘れてた宙照です
今日の昼は割り箸使った

[散文]

未だに1週間ちゃんとmy箸を使ったことが無い・・・
来週は頑張る

今日は昨日に続けてレポート
足りない頭をひねってどうにかそれらしいことを書き綴り
今添削中
その後はまぁいろいろだらだらやってた

明日はレポートの添削を修正して
後は何だろうね
まぁ適当にやる

ではまた

土曜日出かけたくねー・・・


memo

Sub test()
Dim mr As Range
Dim ms As String
Dim rr As Range
Dim rs As String
Dim br As Range
Dim sr As Range
Dim ss() As String
Dim lr As Range
Dim ls() As String

Dim i As Integer
Dim baf As String

Set mr = getrng("mod write point")
ms = getrng("mod str").Value
ActiveWorkbook.Worksheets("型").Activate
mr.Value = ms


Set rr = getrng("rot write point")
ActiveWorkbook.Worksheets(ms).Activate
rs = getrng("rot str").Value
ActiveWorkbook.Worksheets("型").Activate
rr.Value = rs

Set sr = getrng("sirial write point")
Set lr = getrng("loss write point")

ActiveWorkbook.Worksheets(ms).Activate
i = 0
Do
ReDim Preserve ss(i)
ReDim Preserve ls(i)
ss(i) = getrng("sirial str").Value
buf = getrng("loss str").Value & "test"
ls(i) = buf
If (MsgBox("cont siri?", vbYesNo) = 6) Then
i = i + 1
Else
Exit Do
End If
Loop

ActiveWorkbook.Worksheets("型").Activate
sr.Value = ss(i)
lr.Value = ls(i)


End Sub

Function getrng(str As String) As Range
Set getrng = Application.InputBox(Prompt:=str, Type:=8)
End Function
スポンサーサイト

コメント

非公開コメント

プロフィール

宙照

宙照:よく些細なミスをする電子科
タクト:たまにネジがゆるむたぶん電気科
θ:常識があるたぶん情報科

ネットで見つけたネタやら日常やらを会話形式で進めるブログ
仕事が忙しいと愚痴やらメモやらをこぼしていく
目指せ毎日更新

イラストページ
hed.gif

TOP予定地(物置)
arc用のframeworkやら自作フォントが落ちてたり
http://snowflake000.web.fc2.com

連絡先 \を@に変えて下さい
galaxy_angel_is_my_road\yahoo.co.jp
Author:宙照

カウンター
最新記事
最新コメント
応援エリア
『大図書館の羊飼い』は2013年1月25日発売予定です。『大図書館の羊飼い-Dreaming Sheep-』2014年3月28日発売予定、11月29日より全国のPCショップで予約受付開始です。
『大図書館の羊飼い-Dreaming Sheep-』2014年3月28日発売予定、11月29日より全国のPCショップで予約受付開始です。

『大図書館の羊飼い』キャラクター人気投票が3月28日まで開催中です『大図書館の羊飼い』キャラクター人気投票が3月28日まで開催中です

『穢翼のユースティア』キャラクター人気投票結果発表公開中です。『穢翼のユースティア』キャラクター人気投票結果発表公開中です。

AUGUST AUGUST ARIA オーガスト10周年記念CD『AUGUST 10th MEMORIAL』は2011年12月29日よりコミックマーケット81 オーガストブースで販売します。
フリーエリア
検索フォーム
リンク
ヒヨコバズーカ LEFT×RIGHT
RSSリンクの表示
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
メールフォーム

名前:
メール:
件名:
本文:

カテゴリ
月別アーカイブ