なかのにっき

最新版はこちら。 突っ込みは各日付の BBS エントリのほか、 メール (nakano@st.seikei.ac.jp) や フォーム からどうぞ。 なおスパム除けのため、BBS 機能には 緩い認証を入れて います。 検索エンジンから来た方は、エンジンの方のキャッシュを見るか、 下の簡易検索を試してみてください。


hns - 日記自動生成システム - Version 2.19.5

先月 2009年01月 来月
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
Namazu for hns による簡易全文検索
詳しくは 詳細指定/ヘルプを参照して下さい
検索式:

2009年01月05日(月) [n年日記]

#1 今週の英語おもしろ倶楽部

年末の。聞いた。

#2 仕事初め

とりあえずカレンダーの交換。 そういえば退出記録用の 実用書き込みカレンダー を買ってなかった、が、 日経サイエンスのおまけカレンダーでちょうど代用できそう。

#3 [vsj] Journal@rchive 作業

てなわけで本来冬休みの宿題の仕事。 各誌の記事数・頁数を号ごととに一覧する仕事。やれやれ。

基本的には総目次を巻→号→頁でソートし、 次の記事のページとの差分で当該記事の頁数を計算、 その後採択記事のみを pick up して、 号ごとに count / sum。 Excel のソート機能を駆使するかたちで完了。

技術・工業については、ベースになった採択記事リストから、 できるだけ元記事 PDF にあたるかたちでチェック。

…ということをしていたら、記事リストのミスにも気付いてしまったので、 直したのを 20090105 版として保存、関係各位に確認のメール。

号ごとの記事数ページ数計算:

R1C1 形式にしとかないと機能しない。それも VBA で制御できるんだと思うけど。
Sub insertcount()
    numcol = 6
    ccol = 9
    pcol = 10
   
    crows = 2
    crowp = 2
    curnum = Cells(crowp, numcol).Value
   
    Do
        crowp = crowp + 1
        If Cells(crowp, numcol).Value <> curnum Then
            Cells(crowp - 1, ccol).Formula = "=count(r[" & crows - crowp + 1 & "]c8:rc8)"
            Cells(crowp - 1, pcol).Formula = "=sum(r[" & crows - crowp + 1 & "]c8:rc8)"
            curnum = Cells(crowp, numcol).Value
            crows = crowp
        End If
    Loop Until Cells(crowp, numcol) = ""
End Sub

Excel でセル連結:

縦 12 セルを 1 年分として連結するようなもの。
Sub concat()
    currow = ActiveCell.Row
    curcol = ActiveCell.Column
    Range(Cells(currow, curcol), Cells(currow + 11, curcol)).Select
    With Selection
        .MergeCells = True
    End With
    Cells(currow + 12, curcol).Select
End Sub

#4 [Windows] skkime 1.5

大学のも 1.0→1.5 (20080721) に上げた。 1.0 (20060706) で「Seigohyou」と打っていたら、 どうもキーのタイミングで「せいごおよう」と入ってしまったため。 どうも「せいご」+h の後の y の入力タイミングが早い (1s 以内くらい) と 「せいごおy」になっちゃうみたいだ。

1.5 にして 1.0 を消したら解決した模様。うむ。

#5 [labo] uhvsp

日留川くんに依頼してベーキング。

#6 今日の徹底トレーニング英会話

lottery ticket 宝くじ
be up in 〜にもなる
have been meaning to ずっと〜しようと思っていた
コメント [全部読む/投稿する]

以上、1 日分です。
タイトル一覧
カテゴリ分類
book
dept
issp
labo
paper
snap
stock
vsj
Powered by hns-2.19.5, HyperNikkiSystem Project

中野武雄 (NAKANO, Takeo) <nakano@st.seikei.ac.jp> Since 1999-10-07
RSS feed, 更新時刻, LIRS エントリ, アクセス制御 (解説)

中野のホームページへ