
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
①発行者Aさんのシートのレイアウトが判る画像
②受領者Bさんのシートのレイアウトが判る画像
を提示していただけると良い回答がつくかと。
①と②のレイアウトが同じ場合は、その旨明記して、①のみ提示してください。
No.1
- 回答日時:
Sub ポイントを反映()
Dim ws発行 As Worksheet
Dim ws受領 As Worksheet
Dim 発行者 As String
Dim ポイント As Double
' 発行者のシートを参照
Set ws発行 = ThisWorkbook.Sheets("発行者のシート")
' 発行者の名前とポイント数を取得
発行者 = ws発行.Range("A1").Value
ポイント = ws発行.Range("B1").Value
' 受領者のシートを参照(発行者の名前と同じ名前のシートを想定)
On Error Resume Next
Set ws受領 = ThisWorkbook.Sheets(発行者)
On Error GoTo 0
' 受領者のシートが存在すればポイントを反映
If Not ws受領 Is Nothing Then
' 現在のポイントを取得
受領者ポイント = ws受領.Range("B1").Value
' ポイントを加算
ws受領.Range("B1").Value = 受領者ポイント + ポイント
' 履歴を記録(新しい行に追加)
LastRow = ws受領.Cells(ws受領.Rows.Count, "C").End(xlUp).Row + 1
ws受領.Cells(LastRow, "C").Value = "受領:" & Format(Now, "yyyy/mm/dd hh:mm:ss") & " - " & ポイント & " ポイント"
Else
MsgBox "受領者のシートが見つかりません。"
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
括弧があるとHYPERLINKで飛べな...
-
エクセルVBA 4行飛ばしで転記す...
-
エクセルで複数のシートをフォ...
-
癒着してしまったテレビの液晶...
-
BRIDEのシート張り替えってでき...
-
エクセルVBA:他シートを選択す...
-
フォルツァ バッテリーを外して...
-
Vba Array関数について教えてく...
-
原付 レッツシート開け方
-
バイクのシートがベタベタする...
-
IHクッキングヒーターの操作パ...
-
【マクロ】シートの変数へ入れ...
-
Excel複数シートから日付と文字...
-
建築模型、カーブの作り方
-
鏡の作り方
-
SRシートを流用(CB400SS)
-
シートベルトの固定解除
-
紙粘土に同じ絵を大量に転写し...
-
XJR400 のシートを替えようと思...
-
カッティングシートの上からア...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のシートをフォ...
-
括弧があるとHYPERLINKで飛べな...
-
Vba Array関数について教えてく...
-
【マクロ】シートの変数へ入れ...
-
原付 レッツシート開け方
-
IHクッキングヒーターの操作パ...
-
フォルツァ バッテリーを外して...
-
Excel複数シートから日付と文字...
-
エクセルVBA 4行飛ばしで転記す...
-
飛行機の座席について 3列シー...
-
BRIDEのシート張り替えってでき...
-
シートベルトの固定解除
-
水の染み込んだバイクのシート...
-
ポップコーンの捨て方
-
リアシート無しで運転してたら...
-
建築模型、カーブの作り方
-
エスティマのコンソールボック...
-
マジェスティ(4HC)のシート下...
-
カッティングシートの上からア...
-
XR250BAJAのシートのはずし方を...
おすすめ情報
希望はこのようにしたいと考えています。A、Bのシートの仕様は同じで、A.Bの他にC.D.Eと、シートは全部で5枚作成したいです。
受領者Aと受領者Bのレイアウトは同じです。