急行ちょうかい 取り留めない日々の備忘録
過去ログ7431 2025/9/25 10:00
▼急行 ちょうかい
寝たのが5時近くに。目覚まし8時にセットしたのに…止めてて9時台。予約に到底間に合わないけど風呂に。予約時間に駅です。30分は遅延。

メトロ24時間券で改札を。

▼急行 ちょうかい
この方は間違いなく私よりも高齢なのに。

▼急行 ちょうかい
ヤフオクで馴染みの方には色々と問いかけてアドバイスを貰ってますが私の頭では何が何やら…？これはヤフオクのID表示の件ですが。

でも私の為にこうして時間を費やして頂き感謝しきり…です。

許可は貰っていませんが。


ID非表示，いろいろ考えましたが，乱数化されたIDと旧IDまたはお名前を置き換える方法しかないと思いました

もしXLお使いでしたら。。。


条件

ワークシートB
A列：ID
B列：氏名

という対応表になっている

ワークシートA
ここで「ID」を入力すると、それに対応する氏名を自動で表示したい

・ワークシートAの セルC2 に「ID」に対応する氏名を表示したい場合
=VLOOKUP(A2, B!A:B, 2, FALSE)

・VBAでやる方法
（お友達でXl使える人がいたら頼んでもいいかも）


Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsList As Worksheet
Dim rng As Range
Dim f As Range

' 変更があったのがAシート（このコードを入れるシート）のセル
If Target.Count > 1 Then Exit Sub

' 名簿シートを参照
Set wsList = ThisWorkbook.Sheets(名簿)
Set rng = wsList.Range(A:A) ' 名簿シートのID列（A列）

' 入力された値を検索
Set f = rng.Find(What:=Target.Value, LookAt:=xlWhole)

If Not f Is Nothing Then
' 見つかったら氏名で上書き
Application.EnableEvents = False
Target.Value = f.Offset(0, 1).Value
Application.EnableEvents = True
End If
End Sub

▼急行 ちょうかい
ヤフオク連絡マルチ。

○○様、こんばんは、いつも気持ち良いご連絡をすみませんです。最近鉄道図柄以外のオレカも良く思えてきました。格安で恐縮です。

大坂万博は思い立った時に行けたなら行ったでしょうが。とにかくITオンチの私には障壁が大き過ぎました。チケット買ってたら悔し過ぎですがそれがないだけでも。かつて地方博ですが東京都市博の時は前売り券を買ってました。青島が知事になって公約通りに中止になりましたが、グズなので払い戻し期限までに紛れて見つからず出来なかったです。記念グッズと言う事で…とは納得出来ませんですね。

撮り鉄に勤しんでる時は釣りの余地がありませんでしたが昨今国鉄はほぼ終了で撮りに行くに値する列車がなくまだ釣りのが全然満足感がありますので。近場のチョイ釣りばかりですが。私は淡水の小物釣りですが厳冬期は全く釣れす12月~3月はほぼオフですね。夏は不快ですが時間を選べば活発に釣れます。最近はダラダラ過ごした辻褄合わせでほぼ休みの度に行ってます。明後日からの土日はゆるキャライベントですが。当初土曜日は君津祭りで新日鉄の工場見学の予定でしたがゆるキャライベントがあればそちらが優先です。

▼急行 ちょうかい
明日朝から通院ですが飯も食べてません。職場近くのスーパーで収穫あったのですが。DD601様と土日の行動で1時間以上協議してました。当初君津祭りはパスして土日とも群馬（寺嶋由芙のステージが土曜日のみなので…と言う事で同意）ですが何と同日程ですみだが…これは外せませんし…結論先送りに。

▼急行 ちょうかい
その後ネットを見ない様にして作業を。直ぐに持ち帰った魚を入れようと思いましたが寝床を埋めてる新聞の整理を始めたらきりがなくなり早や1時位と1時間半費やしました。日刊ゲンダイと合わせて購読料月8500円位なので止めたほうが良いですね。読んでるのは日刊ゲンダイだけだし。

その後やっと魚に着手。ブクを入れてなかったですがスジエビが2匹のうち1匹死んでしまいました。バケツのままで食塩を入れてました。玄関の水槽ですが、寸詰まりマブナ？とモツゴ3尾投入しました。長らくこの水槽は1尾しかいなかったのに賑やかと言うか過密になってきました。いずれの水槽もですが。

外の60センチ水槽も手入れしてタイムオーバーでした。

74327430
掲示板に戻る