Excel vba 食物熱量計算,卡路裡有多少都不怕

2021-01-08 江覓易見

文/江覓

每天我們吃很多食物，而食物帶給我們熱量，每一種食物裡有含有不同熱量，卡路裡計算也許並不是我們所熟悉的內容。但是我們實實在在每天都在進行的事情。

攝入過多的熱量會造成許多健康相關問題，所以，要面對高熱量的飲食要懂得節食。

這個小工具可以方便計算一天中熱量的攝取量，讓你更好地對飲食有所了解，數據中包含了850多種包含卡路裡值，基本可以查詢一般的食物量。

這個小工具，主要操作就在三個組合框內選擇，分類、食物名稱和攝入量，選擇後單擊添加就顯示到上面的Listview框內了，其中總熱量也一併計算。

如果總量超過1800有一個提示，不過也可以因人而異更改，男性每天2000-3000，女性1600-2400。

代碼做得很傻瓜，如下是分類列表框改變Change代碼，分類改變後面的 名稱框也改變。後面的動圖，可以查看。

選擇代碼

Private Sub ComboBox1_Change()Me.ComboBox2.ClearDim w As WorksheetSet w = ThisWorkbook.Worksheets("食品卡路裡")w.ActivateDim iRow As IntegeriRow = w.Range("B65535").End(xlUp).RowDim R As Range, Rang As RangeSet Rang = w.Range("B2:B" & iRow)Set R = Rang.Find(Me.ComboBox1.Value)Dim addrexx As StringIf R Is Nothing ThenExit SubElseaddrexx = R.Address(0, 0)Do Me.ComboBox2.AddItem (Range("C" & R.Row)) Set R = Rang.FindNext(R) Loop While Not R Is Nothing And addrexx <> R.Address(0, 0)End IfMe.ComboBox2.Value = Me.ComboBox2.List(0)End Sub

如果你是女性，如果你愛美美的，不妨試下，看看每天攝入量是否超標。

相關焦點

  • 食物卡路裡怎麼計算 如何計算一日三餐卡路裡的攝入
    核心提示：減肥對於我們每一個人來說都不是一件容易的事情，尤其是在飲食上應該積極控制好一日三餐熱量的攝入，因為只要控制好攝入熱量低於消耗熱量，那麼就可以幫助自己更加輕鬆地減肥瘦身。 減肥對於我們每一個人來說都不是一件容易的事情，尤其是在飲食上應該積極控制好一日三餐熱量的攝入，因為只要控制好攝入熱量低於消耗熱量，那麼就可以幫助自己更加輕鬆地減肥瘦身。那食物卡路裡怎麼計算？ 如何計算一日三餐卡路裡的攝入？下面我們一起來詳細了解一下！食物卡路裡怎麼計算？
  • 70卡路裡等於多少食物
    核心提示：在日常生活中，我們入口的每一種食物都有熱量，它的計量單位是卡路裡。比較注重減肥的人，一定對卡路裡這個計量單位不陌生，因為在減肥計劃中飲食非常重要，哪種飲食所含有的熱量，對於減肥計劃具有重要意義。在減肥過程中，每天所攝入的食物總熱量絕對不能高於身體所消耗的熱量，否則，就不利於減肥，對減肥沒有任何幫助。那麼70卡路裡等於多少食物？
  • 教你怎樣計算食物熱量
    大家知道，我們減肥最重要的事情就是要控制攝入食物的熱量，而計算熱量的單位就是卡路裡。卡路裡（calorie）這個概念大家經常會接觸到，營養學家通過它來計算食物能量。經過精確實驗，科學家計算出1 克蛋白質的能量為 4 卡路裡，1 克脂肪為 9 卡路裡，1 克碳水化合物為 4 卡路裡，1 克膳食纖維等於 2 卡路裡。
  • 減肥期間,一天吃多少卡路裡合適?教你計算熱量攝入
    減肥期間，一天吃多少卡路裡合適？教你計算熱量攝入文/七月減肥，似乎已經成為了大多數女孩子生活中的常態，因為愛美之心，人皆有之。為了獲得好身材，女孩子們是使盡了渾身解數，就為了體重不過百，就為了讓自己更顯「骨感」。
  • 你會計算食物熱量嗎?恭喜你!算錯了! - 硬派健身
    身體處理不同食物、不同營養素的方式各不相同，這就會導致你根本不可能精準計算食物被人體真正吸收掉的熱量！—— 卡路裡計算，哪錯了？但這個差異具體有多少，目前為止，並沒有相關研究可以得出精準數據……當然，更現實的是，你做飯的時候，並不是單純的把食物從生弄熟啊……還得加各種調料吧？而這個烹飪過程，並沒有多少人會拿著電子稱精準測量自己擱了多少鹽、多少油、多少糖啊！
  • 可以計算食物卡路裡的APP有哪些?
    計算食物卡路裡的APP有比較多，現在有不少減肥瘦身軟體都提供這個功能，下面就介紹一下瘦瘦、薄荷和食物庫這三款軟體。以下是詳細介紹： 　　1、瘦瘦是一款健康瘦身減肥應用，這款應用提供簡單易行的瘦身方案，能夠一鍵簡單打開輕鬆的瘦身模式；軟體中還會提供海量的科學減肥知識；還可以在減肥應用上一鍵分享朋友圈；還可以隨時隨地查詢卡路裡，給您帶來專業的瘦身評估；
  • 別再吃口香蕉,都要計算卡路裡了!
    準確計算熱量，太難 幾乎沒有任何辦法，可以精確的計算我們每天攝入和消耗了多少熱量。 同理，包裝食品上的熱量其實有多少有偏差，包括我們7日減脂3餐系列計算出來的熱量，也都有一定的熱量差。 不僅是攝入，熱量消耗也是一樣。大多數跑步機、運動手環、健身視頻裡標註的熱量，都無法精確反應你身體實際的熱量消耗。關於熱量消耗無法準確計算，我在這篇文章詳細講過「跑步機&運動手環」都在誤導你！
  • 如何計算食物卡路裡
    核心提示：我們都知道合理的飲食是非常重要的，不管是對於健康來講，還是對於減肥來講，都必須要遵循合理飲食的原則，而對於減肥的人群來講，在食物的攝入量方面要控制好，尤其是卡路裡的攝入，過多攝入會影響到減肥的效果，那麼如何計算食物卡路裡呢？
  • 糾結卡路裡計算是最傻最無用的事情
    很多關於減肥的話題裡都包含有熱量、卡路裡虧空或者盈餘這些詞語，在減肥的過程中，大部分人都堅信，計算卡路裡是減肥能夠成功的必要條件。卡路裡是能量單位，為了知道食物熱量是多少卡路裡，那就要計算這個食物在測量熱量裝置裡，燒掉後能產生多少能量。這就是食物熱量理論。
  • 食物要遠比營養表上的數字複雜得多,停止計算卡路裡吧!
    一旦遇到註冊營養師，很多人就開始問他們最喜歡的食物。最近，一個朋友問為什麼她最喜歡的藜麥炒飯有超過1000卡路裡的熱量。藜麥不健康嗎？營養師很快告訴她，僅僅因為這道菜的卡路裡含量高並不一定意味著它不健康。
  • 如何通過計算卡路裡精準減肥
    2卡路裡的消耗與攝入2.1我每天消耗多少熱量腿腿告訴大家計算每天消耗的公式，消耗熱量=靜息代謝（躺著不動就能消耗的熱量）*活動係數（工作的勞累程度和訓練頻率）。最後得出的代謝單位是大卡哦，比如腿腿每天的基礎代謝就有1950大卡卡路裡。隨後根據下面的表格乘以活動係數就可以得到自己一天的消耗啦。好啦，最後舉例，腿腿身高181cm，體重84KG，得出靜息代謝，1950卡，非體力工作每天規律舉鐵係數為1.6，得到每天消耗1950*1.6=3120大卡。
  • 公開日常食物卡路裡對照表揭秘不同人群每日所需的熱量
    食物熱量表，是根據單位數量（如100克）的食物中所含的能量，繪製或列出的一覽表便於飲食保健參考。不同的食物有產生不同的能量。對於肥胖症、糖尿病、高血壓等慢性病患者來講，控制每天身體所攝取的能量，是減輕他們本身病變的方法。
  • excel VBA是什麼?VBA編程入門教程
    本篇將介紹excel vba是什麼？vba編程入門教程，有興趣的朋友可以了解一下！一、excel vba是什麼？VBA的英文全稱是Visual Basic for Applications，是一門標準的宏語言。VBA語言不能單獨運行，只能被office軟體（如：Word、Excel等）所調用。
  • 每天需要多少卡路裡
    核心提示：在日常生活中，相信大家總會聽到「低卡路裡」、「零卡路裡」等名詞，由於對於減肥者來說，她們對食物的卡路裡非常的關注，減肥期間之所以會減少體重，主要是因為身體內的熱量被大量消耗，因此，有很多的減肥者會問每天需要多少卡路裡？
  • 計算卡路裡是減肥界的「地心說」,都算錯了吧!
    >吃美食第一件事也不再是拍照餵飽相機，而是先看看這一頓會攝入多少的熱量，不看不知道，一看嚇一跳。當然有一部分人，通過卡路裡的計算攝入一些高度加工食物和零食甜點，如果說每一種包裝食品的熱量都高於營養標籤標註的20%，那是不是很容易超標呢？所以，營養標籤，僅供參考，掃一眼心裡有個數就好。
  • 食物熱量計算 如何計算食物的熱量
    核心提示：減肥是女性朋友畢生的任務，提到減肥，肯定與食物熱量計算離不開，因為只有攝入的熱量低消耗的熱量才可以達到的目的，所以說，大家應該學會如何計算食物的熱量。那麼，究竟如何計算食物的熱量呢？我們一起來看下面的介紹。
  • 減肥不計算卡路裡?你TM在搞笑哦
    減肥這件事，但凡經歷過的美女帥哥都一定深有體會：三分練，七分吃。主要還是靠飲食調整，吃對了才能高效地瘦下來！但總有些減肥博主會告訴你：減肥不需要計算卡路裡，因為你不可能精確計算！因為不能精確計算，咱們就無視那麼多讓我長滿肥肉的罪魁禍首？！
  • 健身App到底是怎麼計算卡路裡的?
    熱量攝入計算得出每日卡路裡攝入量其實不難。一般來說袋裝食品都附有營養成分表，表中詳細羅列相關信息諸如熱量總值、脂肪、蛋白質、碳水化合物含量、纖維值等等。這些成分相關轉換值都會上傳至網絡您盡可加以搜索，應用程式可搜尋對應資料庫查出數值。
  • 5 計算卡路裡的迷思
    「計算卡路裡？」大家每天的食量都是不同的，而且我們自己對食物的認知也是不同的。食物的種類、質量以及配料都會改變大家實際攝入的卡路裡。你能準確說出在兩家店中你所購買的沙拉中分別有多少顆鷹嘴豆、多少片生菜、多少顆小番茄麼？這兩份沙拉的醬汁又分別是多少克呢？
  • 掌握減肥的主動權,精確計算卡路裡
    如何準確計算你的卡路裡，掌握減肥的主動權我們都知道，最簡單幹脆的減肥方法就是製造熱量缺口。一斤的純脂肪需要消耗掉3850大卡。就是說，如果你一天消耗了3850大卡的熱量，而沒有吃任何的食物，你就可以減掉一斤的脂肪。